Order two numerical lists: Difference between revisions
Content added Content deleted
(Added PowerShell) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: flatten before assignment) |
||
| Line 971: | Line 971: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
There is already a built-in comparison operator. |
|||
<lang perl6>my @a = <1 2 4>; |
<lang perl6>my @a = <1 2 4>; |
||
my @b = <1 2 4>; |
my @b = <1 2 4>; |
||
| Line 985: | Line 985: | ||
for 1..10 { |
for 1..10 { |
||
my @a = (^100).roll((2..3).pick); |
my @a = flat (^100).roll((2..3).pick); |
||
my @b = @a.map: { Bool.pick ?? $_ !! (^100).roll((0..2).pick) } |
my @b = flat @a.map: { Bool.pick ?? $_ !! (^100).roll((0..2).pick) } |
||
say @a," before ",@b," = ", @a before @b; |
say @a," before ",@b," = ", @a before @b; |
||
}</lang> |
}</lang> |
||