12 lines
301 B
FSharp
12 lines
301 B
FSharp
let rec nextrow l =
|
|
match l with
|
|
| [] -> []
|
|
| h :: [] -> [1]
|
|
| h :: t -> h + t.Head :: nextrow t
|
|
|
|
let pascalTri n = List.scan(fun l i -> 1 :: nextrow l) [1] [1 .. n]
|
|
|
|
for row in pascalTri(10) do
|
|
for i in row do
|
|
printf "%s" (i.ToString() + ", ")
|
|
printfn "%s" "\n"
|