2011-12-01から1ヶ月間の記事一覧
こんな感じでしょうか。 (^) :: (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