diff options
| -rwxr-xr-x | challenge-040/ruben-westerberg/perl/ch-2.pl | 9 | ||||
| -rwxr-xr-x | challenge-040/ruben-westerberg/raku/ch-2.p6 | 5 |
2 files changed, 14 insertions, 0 deletions
diff --git a/challenge-040/ruben-westerberg/perl/ch-2.pl b/challenge-040/ruben-westerberg/perl/ch-2.pl new file mode 100755 index 0000000000..39f3f68998 --- /dev/null +++ b/challenge-040/ruben-westerberg/perl/ch-2.pl @@ -0,0 +1,9 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +my @a=(10,4,1,8,12,3); +my @i=(0,2,5); + +$,=" "; +print sort {$a <=> $b} @a[@i]; diff --git a/challenge-040/ruben-westerberg/raku/ch-2.p6 b/challenge-040/ruben-westerberg/raku/ch-2.p6 new file mode 100755 index 0000000000..89b02ab4ed --- /dev/null +++ b/challenge-040/ruben-westerberg/raku/ch-2.p6 @@ -0,0 +1,5 @@ +#!/usr/bin/env perl6 +my @a=(10,4,1,8,12,3); +my @i=(0,2,5); + +put @a[@i].sort; |