>>33
ぱっと見あってそうだが…
"〜加えた時点で加算を終了" のところが違うかも
でもこれってみんな違うよねｗ

-----
F# で>>28
let rec f n s =
    if n < 0.00001
    then s + n
    else f (n / 3.) (s + n);;

f 1. 0. |> printfn "%f";;