こんな感じでしょうか。 (^) :: (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

0. アジェンダ HakyllとpandocとMighttpdでサイトを作った話 by [twitter:@tanakh]さん の記事に触発されたので、 Haskell を試してみたいと思います。