mirror of
https://gitlab.com/mfocko/CodeWars.git
synced 2024-11-24 01:31:56 +01:00
8 lines
232 B
Haskell
8 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]
|