Motzkin numbers: Difference between revisions
Add Factor
(Created new draft task, Motzkin numbers, and added a Wren solution.) |
(Add Factor) |
||
Line 14:
* [[oeis:A001006]] Motzkin numbers
<br><br>
=={{header|Factor}}==
{{works with|Factor|0.99 2021-06-02}}
<lang factor>USING: combinators formatting io kernel math math.primes
tools.memory.private ;
MEMO: motzkin ( m -- n )
dup 2 < [
drop 1
] [
{
[ 2 * 1 + ]
[ 1 - motzkin * ]
[ 3 * 3 - ]
[ 2 - motzkin * + ]
[ 2 + /i ]
} cleave
] if ;
" n M[n] Prime?" print
"-----------------------------------" print
42 [
dup motzkin [ commas ] keep prime? "✅" "❌" ?
"%2d %24s %s\n" printf
] each-integer</lang>
{{out}}
<pre>
n M[n] Prime?
-----------------------------------
0 1 ❌
1 1 ❌
2 2 ✅
3 4 ❌
4 9 ❌
5 21 ❌
6 51 ❌
7 127 ✅
8 323 ❌
9 835 ❌
10 2,188 ❌
11 5,798 ❌
12 15,511 ✅
13 41,835 ❌
14 113,634 ❌
15 310,572 ❌
16 853,467 ❌
17 2,356,779 ❌
18 6,536,382 ❌
19 18,199,284 ❌
20 50,852,019 ❌
21 142,547,559 ❌
22 400,763,223 ❌
23 1,129,760,415 ❌
24 3,192,727,797 ❌
25 9,043,402,501 ❌
26 25,669,818,476 ❌
27 73,007,772,802 ❌
28 208,023,278,209 ❌
29 593,742,784,829 ❌
30 1,697,385,471,211 ❌
31 4,859,761,676,391 ❌
32 13,933,569,346,707 ❌
33 40,002,464,776,083 ❌
34 114,988,706,524,270 ❌
35 330,931,069,469,828 ❌
36 953,467,954,114,363 ✅
37 2,750,016,719,520,991 ❌
38 7,939,655,757,745,265 ❌
39 22,944,749,046,030,949 ❌
40 66,368,199,913,921,497 ❌
41 192,137,918,101,841,817 ❌
</pre>
=={{header|Wren}}==
{{libheader|Wren-long}}
| |||