mirror of
https://gitlab.com/mfocko/CodeWars.git
synced 2024-09-19 14:16:55 +02:00
7 lines
232 B
Haskell
7 lines
232 B
Haskell
module Codewars.Kata.PascalsTriangle where
|
|
|
|
pascalsRow :: Int -> [Int]
|
|
pascalsRow n = scanl (\nCk k -> (nCk * (n - k)) `div` (k + 1)) 1 [0..n - 1]
|
|
|
|
pascalsTriangle :: Int -> [Int]
|
|
pascalsTriangle n = concatMap pascalsRow [0..n - 1]
|