• + 1 comment

    Pretty much the same thing I did, minus self-recursive definition shenanigans:

    pascal = iterate ((++ [1]) . (1:) . (zipWith (+) =<< tail)) [1]