diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-08-22 20:07:45 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-08-22 20:07:45 +0100 |
| commit | d2d8025e08bd3a7bad1ae73a9bfabc8cb1f1186a (patch) | |
| tree | b528c10f0858bb194c3d34e088ee2ca1976a9323 /challenge-126 | |
| parent | 943195f345a8589b3f9847f3042e7b1f7ec1fe57 (diff) | |
| download | perlweeklychallenge-club-d2d8025e08bd3a7bad1ae73a9bfabc8cb1f1186a.tar.gz perlweeklychallenge-club-d2d8025e08bd3a7bad1ae73a9bfabc8cb1f1186a.tar.bz2 perlweeklychallenge-club-d2d8025e08bd3a7bad1ae73a9bfabc8cb1f1186a.zip | |
- Added solutions by Joan Mimosinnet.
Diffstat (limited to 'challenge-126')
| -rw-r--r-- | challenge-126/mimosinnet/raku/2 | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/challenge-126/mimosinnet/raku/2 b/challenge-126/mimosinnet/raku/2 deleted file mode 100644 index 075bfd5ad4..0000000000 --- a/challenge-126/mimosinnet/raku/2 +++ /dev/null @@ -1,38 +0,0 @@ -# https://perlweeklychallenge.org/blog/perl-weekly-challenge-11X/ - -my UInt @numbers_but_one = (1..*).grep( * !~~ /1/ ); -say @numbers_but_one.head(20); - -#| -sub challenge( ) { - -} - -multi sub MAIN( ) { -} - -multi sub MAIN( 'challenge' ) { - my @challenge = ( - ); - - for @challenge -> ($a, $b) { - MAIN($a,$b); - } -} - -multi sub MAIN( 't' ) { -} - -multi sub MAIN( 'test' ) is hidden-from-USAGE { - use Test; - - my @test = ( - ); - - for @test -> ($a, $b, $c ) { - is challenge($a,$b), $c; - } - - done-testing; - -} |
