先日は複素数を使った解答を出したが（その後Haskellの練習に変化）、やっぱり値域・定義域は実数の範囲だったみたいなので、今度は題意に沿った解答を考えてみよう。 要するに、正負以外に実数の空間を２等分する基準を考えればいいわけだから…（数分考えて…

Main> all (\x -> f(f(x)) == -x) (0:concatMap (\x -> [-x,x]) [1..10]) Trueもしくは、$を使って、 Main> all (\x -> f(f(x)) == -x) $ 0:concatMap (\x -> [-x,x]) [1..10] Trueさらにテスト用の関数を作る。 test_f :: RealFloat a => [Complex a] -> Bo…