Catalan numbers/Pascal's triangle: Difference between revisions

Content added Content deleted
(Added 11l)
(Added Common Lisp)
Line 389: Line 389:
1, 2, 5, 14, 42, 132, 429, 1430, 4862, 16796, 58786, 208012, 742900, 2674440, 9694845
1, 2, 5, 14, 42, 132, 429, 1430, 4862, 16796, 58786, 208012, 742900, 2674440, 9694845
</pre>
</pre>


=={{header|Common Lisp}}==

<lang Lisp>(defun catalan (n)
"Return the n-th Catalan number"
(if (<= n 1) 1
(let ((result 2))
(dotimes (k (- n 2) result)
(setq result (* result (/ (+ n k 2) (+ k 2)))) ))))


(dotimes (n 15)
(print (catalan (1+ n))) )</lang>

{{out}}

<pre>1
2
5
14
42
132
429
1430
4862
16796
58786
208012
742900
2674440
9694845</pre>



=={{header|D}}==
=={{header|D}}==