Catalan numbers: Difference between revisions
Content added Content deleted
(Added ZX81 BASIC) |
(Added XLISP) |
||
Line 4,097: | Line 4,097: | ||
!*#~ddiFSFmSoFSn @til 15 |
!*#~ddiFSFmSoFSn @til 15 |
||
; returns [1 1 2 5 14 42 132 429 1430 4862 16796 58786 208012 742900 2674439.9999999995]</lang> |
; returns [1 1 2 5 14 42 132 429 1430 4862 16796 58786 208012 742900 2674439.9999999995]</lang> |
||
=={{header|XLISP}}== |
|||
<lang lisp>(defun catalan (n) |
|||
(if (= n 0) |
|||
1 |
|||
(* (/ (* 2 (- (* 2 n) 1)) (+ n 1)) (catalan (- n 1))) ) ) |
|||
(defun range (x y) |
|||
(cons x |
|||
(if (< x y) |
|||
(range (+ x 1) y) ) ) ) |
|||
(print (mapcar catalan (range 0 14)))</lang> |
|||
{{out}} |
|||
<pre>(1 1 2 5 14 42 132 429 1430 4862 16796 58786 208012 742900 2674440)</pre> |
|||
=={{header|XPL0}}== |
=={{header|XPL0}}== |