Flipping bits game: Difference between revisions
m
→{{header|Perl 6}}: numeric sorting of rows
m (→{{header|REXX}}: simplified the program, added identifiers of the user inputs.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: numeric sorting of rows) |
||
Line 2,255:
$string ~= sprintf "%2s ", $_ for sort keys %hash{'1'};
$string ~= "\n";
for %hash.keys.sort:
$string ~= sprintf "%2s ", $key;
$string ~= sprintf "%2s ", %hash{$key}{$_} for sort keys %hash{$key};
| |||