First class environments: Difference between revisions
m
→{{header|Raku}}: remove what's not needed
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: remove what's not needed) |
||
Line 1,724:
=={{header|Raku}}==
(formerly Perl 6)
<syntaxhighlight lang="raku" line>my $calculator = sub ($n is rw) {
}
sub next (%this, &get_next) {
return %this if %this.<value> == 1;
%this.<value> .= &get_next;
%this.<count>++;
}
my @hailstones = map { %(value => $_, count => 0) }, 1 .. 12;
while not all( map { $_.<value> }, @hailstones ) == 1 {
say [~] map { $_.<value>.fmt
@hailstones[$_] .= &next($calculator) for ^@hailstones;
}
▲say [~] map { $_.<count>.fmt("%4s") }, @hailstones;</syntaxhighlight>
{{out}}
Line 1,770 ⟶ 1,768:
1 1 1 1 1 1 1 1 2 1 1 1
Counts
0 1 7 2 5 8 16 3 19 6 14 9</pre>
=={{header|REXX}}==
The formatting is sensitive to a terminating Collatz sequence and is shown as blanks (that is,
|