Fairshare between two and more: Difference between revisions
m
→{{header|Perl 6}}: style tweaks
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: style tweaks) |
||
Line 37:
<lang perl6>my $terms = 25;
.put for <2 3 5 7 11>.map: -> \b {
b.fmt('%2d:') ~ ((^∞).map({.base(b).comb».parse-base(b).sum % b}))[^$terms]».fmt('%2d').join: ', '▼
▲ ((^∞).map({.base(b).comb».parse-base(b).sum % b}))[^$terms]».fmt('%2d').join: ', '
}</lang>
{{out}}
| |||