Partition function P: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: demo earlier in the sequence) |
||
| Line 313: | Line 313: | ||
sub p ($n) { sum @P[$n X- @i[^(@i.first: * > $n, :k)]] Z× (flat (1, 1, -1, -1) xx *) } |
sub p ($n) { sum @P[$n X- @i[^(@i.first: * > $n, :k)]] Z× (flat (1, 1, -1, -1) xx *) } |
||
put @P[^26]; |
|||
put @P[6666];</lang> |
|||
{{out}} |
{{out}} |
||
<pre>1 1 2 3 5 7 11 15 22 30 42 56 77 101 135 176 231 297 385 490 627 792 1002 1255 1575 1958 |
|||
193655306161707661080005073394486091998480950338405932486880600467114423441282418165863</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |
||