Motzkin numbers: Difference between revisions
Realize in F#
(Added Algol 68) |
(Realize in F#) |
||
Line 123:
</pre>
=={{header|F_Sharp|F#}}==
<lang fsharp>
// Motzkin numbers. Nigel Galloway: September 10th., 2021
let M=let rec fN g=seq{yield List.item 1 g; yield! fN(0L::(g|>List.windowed 3|>List.map(List.sum))@[0L;0L])} in fN [0L;1L;0L;0L]
M|>Seq.take 42|>Seq.iter(printfn "%d")
</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
</pre>
=={{header|Factor}}==
{{works with|Factor|0.99 2021-06-02}}
| |||