Motzkin numbers: Difference between revisions
Content added Content deleted
m (Removed vanity line) |
|||
Line 219: | Line 219: | ||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |
||
<lang fsharp> |
<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] |
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") |
M|>Seq.take 42|>Seq.iter(printfn "%d") |
||
Line 268: | Line 268: | ||
192137918101841817 |
192137918101841817 |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
{{works with|Factor|0.99 2021-06-02}} |
{{works with|Factor|0.99 2021-06-02}} |