elm/exercises/pascals-triangle/Triangle.example.elm

module Triangle exposing (rows)

import List


nextRow : List Int -> List Int
nextRow row =
    List.map2 (+) (0 :: row) (row ++ [ 0 ])


rows : Int -> List (List Int)
rows n =
    let
        loop i row =
            if i == n then
                []
            else
                row :: loop (i + 1) (nextRow row)
    in
        if n < 0 then
            []
        else
            loop 0 [ 1 ]