William Herrera skribis 2006-09-17 13:45 (-0600):
> Ruby (10 lines, 274 bytes)
This is the nicest example, so I'll base my response off this one.
my @numbers = (1..9).sort:{ rand };
my $steps = 0;
while ("@numbers[]" ne "@numbers.sort()") {
say "@numbers";
my $flipcount = prompt "Reverse how many?";
@numbers[0..^$flipcount].=reverse;
$steps++;
}
say "Done! That took you $steps steps.\n";
> Does perl6's Array class allow for more compact syntax, without
> FreezeThaw.pm?
Interpolate the arrays:
while ("@numbers" ne "@{[ sort @numbers ]}") { ... }
--
korajn salutojn,
juerd waalboer: perl hacker <[EMAIL PROTECTED]> <http://juerd.nl/sig>
convolution: ict solutions and consultancy <[EMAIL PROTECTED]>
