Pascal's triangle: Difference between revisions
Content added Content deleted
m (→{{header|Java}}: Wonder how that < got in there...) |
(added ocaml) |
||
Line 280: | Line 280: | ||
} |
} |
||
}</java> |
}</java> |
||
=={{header|OCaml}}== |
|||
<ocaml>(* generate next row from current row *) |
|||
let next_row row = |
|||
List.map2 (+) ([0] @ row) (row @ [0]) |
|||
(* returns the first n rows *) |
|||
let pascal n = |
|||
let rec loop i row = |
|||
if i = n then [] |
|||
else row :: loop (i+1) (next_row row) |
|||
in loop 0 [1]</ocaml> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |