Catalan numbers: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 2,418: | Line 2,418: | ||
15 9694845 9694845 9694845</pre> |
15 9694845 9694845 9694845</pre> |
||
=={{header|OCaml}}== |
|||
<lang OCaml> |
|||
let catalan : int ref = ref 0 in |
|||
Printf.printf "%d ," 1 ; |
|||
for i = 2 to 9 do |
|||
let nm : int ref = ref 1 in |
|||
let den : int ref = ref 1 in |
|||
for k = 2 to i do |
|||
nm := (!nm)*(i+k); |
|||
den := (!den)*k; |
|||
catalan := (!nm)/(!den) ; |
|||
done; |
|||
print_int (!catalan); print_string "," ; |
|||
done;; |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
1 ,2,5,14,42,132,429,1430,4862(upto 9 numbers only) |
|||
</pre> |
|||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||