参考ページ お気楽 Haskell プログラミング入門 -- fibo.hs -- 普通 fibo :: Integer -> Integer fibo n = if n == 0 || n == 1 then n else fibo (n - 1) + fibo (n - 2) -- 末尾再帰 fibo_tail :: Integer -> Integer fibo_tail n = fibo_sub n 0 1 where …

sum_of_power :: Integer -> Integer -> Integer sum_of_power n p = sum $ map (^p) [1..n] *Main> sum_of_power 10 1 55 *Main> sum_of_power 10 2 385 *Main> sum_of_power 100 2 338350 *Main> sum_of_power 100 3 25502500

参考ページ お気楽 Haskell プログラミング入門挿入ソート 並べ替えられているリストに、 並べ替えられていない要素を適切な位置に挿入する操作を繰り返す。例 [2, 1, 4, 3]をソートする 右から畳み込む [] [3] [3, 4] [1, 3, 4] [1, 2, 3, 4] insert_elemen…