Haskellでの負の数も含む階乗を求める関数
こんな感じでしょうか。
(^) :: (Fractional a, Ord a) => a -> a -> a m ^ n | n == 0 = 1 | n > 0 = m * (m Main.^ (n - 1)) | n < 0 = (m Main.^ (n + 1)) / m
こんな感じでしょうか。
(^) :: (Fractional a, Ord a) => a -> a -> a m ^ n | n == 0 = 1 | n > 0 = m * (m Main.^ (n - 1)) | n < 0 = (m Main.^ (n + 1)) / m