- プログラミングのお題スレ Part4
857 ：デフォルトの名無しさん[sage]：2014/09/04(木) 19:07:52.69 ID:S/Ci8qVf - >>843 R
f <- function(a, b){abs(a + b * 1i)}
> f(3,4)
[1] 5
> f(3e200,4e200)
[1] 5e+200
> f(1234,2345)
[1] 2649.864
| - プログラミングのお題スレ Part4
860 ：デフォルトの名無しさん[sage]：2014/09/04(木) 21:00:02.00 ID:S/Ci8qVf - >>843 Io
f := method(a, b,
4 repeat(
t := b / a
t = t * t
t = t / (4 + t)
a = a + 2 * a * t
b = b * t
)
a
)
|
|