Riordan numbers: Difference between revisions
Content added Content deleted
(Realize in F#) |
(J draft) |
||
| Line 36: | Line 36: | ||
r[9999] has 4765 digits |
r[9999] has 4765 digits |
||
</pre> |
</pre> |
||
=={{header|J}}== |
|||
Sequence extender:<lang J>riordanext=: (, (<: % >:)@# * 3 2 +/ .* _2&{.)</lang> |
|||
Task example:<lang J> riordanext^:(30) 1x 0 |
|||
1 0 1 1 3 6 15 36 91 232 603 1585 4213 11298 30537 83097 227475 625992 1730787 4805595 13393689 37458330 105089229 295673994 834086421 2358641376 6684761125 18985057351 54022715451 154000562758 439742222071 1257643249140</lang>Stretch:<lang J> #":(1e3-1){riordanext^:(1e3) x:1 0 |
|||
472 |
|||
#":(1e4-1){riordanext^:(1e4) x:1 0 |
|||
4765</lang> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
<lang perl6>use Lingua::EN::Numbers; |
<lang perl6>use Lingua::EN::Numbers; |
||