Anonymous user
Pascal's triangle: Difference between revisions
→{{header|Factor}}
Line 503:
{1,8,28,56,70,56,28,8,1}
{1,9,36,84,126,126,84,36,9,1}
=={{header|F#}}==
<lang 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"
</lang>
=={{header|Factor}}==
| |||