Motzkin numbers: Difference between revisions
Content added Content deleted
(Initial Haskell version.) |
(added burlesque) |
||
Line 220: | Line 220: | ||
return True |
return True |
||
end function</lang> |
end function</lang> |
||
=={{header|Burlesque}}== |
|||
<lang burlesque>41rz{{2./}c!rz2?*{nr}c!\/2?/{JJ2.*J#Rnr#r\/+.nr.-}m[?*++it+.}m[Jp^#R{~]}5E!{fCL[1==}f[#r</lang> |
|||
{{out}} |
|||
<pre>1 |
|||
1 |
|||
2 |
|||
4 |
|||
9 |
|||
21 |
|||
51 |
|||
127 |
|||
323 |
|||
835 |
|||
2188 |
|||
5798 |
|||
15511 |
|||
41835 |
|||
113634 |
|||
310572 |
|||
853467 |
|||
2356779 |
|||
6536382 |
|||
18199284 |
|||
50852019 |
|||
142547559 |
|||
400763223 |
|||
1129760415 |
|||
3192727797 |
|||
9043402501 |
|||
25669818476 |
|||
73007772802 |
|||
208023278209 |
|||
593742784829 |
|||
1697385471211 |
|||
4859761676391 |
|||
13933569346707 |
|||
40002464776083 |
|||
114988706524270 |
|||
330931069469828 |
|||
953467954114363 |
|||
2750016719520991 |
|||
7939655757745265 |
|||
22944749046030949 |
|||
66368199913921497 |
|||
192137918101841817 |
|||
{2 127 15511 953467954114363}</pre> |
|||