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