f x | abs x < 1 = - x / (1 - abs x)
| otherwise = x / (1 + abs x)
というコードを書いたら、丸め誤差のせいでなんだか哀しいことに。
*Main> f (f 2) -1.9999999999999996 *Main> f (f 3) -3.0 *Main> f (f (-4)) 4.000000000000001
と思ったら間違っていた。悲しい。
*Main> f (f 0.1) 0.12500000000000003
最近のコメント