Triangular numbers: Difference between revisions
m
→{{header|Raku}}: reformat slightly
Thundergnat (talk | contribs) m (Add another related task) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: reformat slightly) |
||
Line 81:
sub polytopic (Int $r, @range) { @range.map: { binomial $_ + $r - 1, $r } }
sub triangular-root ($x) {
sub tetrahedral-root ($x) {
Line 88:
}
sub pentatopic-root ($x) {
sub display (@values) {
Line 95:
}
for 2, 'triangular', 3, 'tetrahedral', 4, 'pentatopic', 12, '12-simplex'
-> $r, $name { say "\nFirst 30 $name numbers:\n" ~ display polytopic $r, ^30 }▼
▲ say "\nFirst 30 $name numbers:\n" ~
say '';
| |||