よくよく考えればこれだけでよかったんだ 無駄なことした気がするぜ ただ、sumを置き換えれるように引数取るようにするとエラー なんでだろ と思ってたら、再帰の部分をfoo xsと書いてたからだった あるある

fib.hs

import Data.List (transpose,tails)

hoge = foo sum
fib   = hoge [0,1]
lucas = hoge [2,1]
tri   = hoge [0,0,1]
tetra = hoge [0,0,0,1]

foo f xs = xs ++ map f a
    where a = transpose $ take (length xs) $ tails $ foo f xs