Guest User

Untitled

a guest
Apr 23rd, 2013
45
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. pascal :: Int -> [[Int]]
  2. pascal 0 = [[1]]
  3. pascal n = zipWith (+) (0:p) (p ++ [0]):p:ps where p:ps = pascal (n-1)
Advertisement
Add Comment
Please, Sign In to add comment