pascal :: [[Integer]]
pascal = iterate (map sum . clump 2 . (:) 0 . flip (++) [0]) [1]
pascal :: [[Integer]]
pascal = iterate (map sum . clump 2 . (:) 0 . flip (++) [0]) [1]
pascal = iterate (map sum . clump 2 . (:) 0 . flip (++) [0]) [1]