Pascal's triangle: Difference between revisions
Content added Content deleted
Line 503: | Line 503: | ||
{1,8,28,56,70,56,28,8,1} |
{1,8,28,56,70,56,28,8,1} |
||
{1,9,36,84,126,126,84,36,9,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}}== |
=={{header|Factor}}== |