Marsi

Func n($0,$1,$2=1) $0&='-('&$1&')' For $3=0 To 999 $4=Execute(StringReplace($0,'x',$2)) $2-=$4/(Execute(StringReplace($0,'x',$2+1/10^9))-$4)/10^9 Next Return $2 EndFunc 175 At 2:00 noone sees, that Abs($2-$1+$1=$2)=1 -> $1=$2 M Edit: Func n($0,$1,$2=1,$3=Assign,$4=StringReplace) Return IsString($1)?n($0&'-('&$1&')',0,$2):0*$3(6, _ Execute($4($0,'x',$2)))*$3(2,$2-$6/(Execute($4($0, _ 'x',$2+1/10^9))-$6)/10^9)+$1=999?$2:n($0,$1+1,$2) EndFunc

Tried to shorten it a bit Func n($0,$1,$2=1) $0&='-('&$1&')' For $3=0 To 10^4 $4=Execute(StringReplace($0,'x',$2)) $2-=$4/(Execute(StringReplace($0,'x',$2+1/10^9))-$4)/10^9 If IsInt($3/1000) And IsInt($3/2000)=0 Then $1=$2 If Abs($2-$1+$1=$2)=1 Then Return $2 Next EndFunc ; 254 Byte And for the crazy ones: Func n($0,$1,$2=1,$3=-1,$4=0,$5=Assign,$6=StringReplace) Return ($3=-1)?n($0&'-('&$1&')',$1,$2,0):0*$5('4' _ ,Execute($6($0,'x',$2)))*$5('2',$2-$4/(Execute($6 _ ($0,'x',$2+1/10^9))-$4)/10^9)*((IsInt($3/1000)And _ IsInt($3/2000)=0)?$5('1',$2):0)+Abs($2-$1+$1=$2)= _ 1?$2:n($0,$1,$2,$3+1) EndFunc ; 285 Bytes (without _) M