diff options
| -rw-r--r-- | challenge-216/shimon-ben-avraham/raku/ch-1.md | 23 | ||||
| -rwxr-xr-x | challenge-216/shimon-ben-avraham/raku/ch-1.raku | 2 | ||||
| -rwxr-xr-x | challenge-216/shimon-ben-avraham/raku/registration-number.raku | 2 |
3 files changed, 2 insertions, 25 deletions
diff --git a/challenge-216/shimon-ben-avraham/raku/ch-1.md b/challenge-216/shimon-ben-avraham/raku/ch-1.md index 81eaa28f55..5130597373 100644 --- a/challenge-216/shimon-ben-avraham/raku/ch-1.md +++ b/challenge-216/shimon-ben-avraham/raku/ch-1.md @@ -1,20 +1,6 @@ -```raku -#! /usr/bin/env raku - -# Perl Weekly Challenge #216, Challenge 1 -# © 2023 Shimon Bollinger. All rights reserved. -# Last modified: Thu 11 May 2023 05:53:06 PM EDT -# Version 0.0.1 - -# always use the latest version of Raku -use v6.*; -``` - TITLE ===== - - Task 1: Registration Number =========================== @@ -146,12 +132,3 @@ Finally, make sure we test every word in the `@words` array... say @result.List; } # end of multi MAIN (Str $reg, *@words) -#| Run with the option '--test' to test the program -multi MAIN (Bool :$test!) { - use Test::Output; - - output-is {samewith('AB1 2CD', <abc abcd abd>)}, "(abcd)\n", 'Example 1 OK'; - output-is {samewith('007 JB', <job james bjorg>)}, "(job bjorg)\n", 'Example 2 OK'; - output-is {samewith('C7 RA2', <crack road rac>)}, "(crack rac)\n", 'Example 3 OK'; -} -``` diff --git a/challenge-216/shimon-ben-avraham/raku/ch-1.raku b/challenge-216/shimon-ben-avraham/raku/ch-1.raku index 1b79eb963e..400c22ce2e 100755 --- a/challenge-216/shimon-ben-avraham/raku/ch-1.raku +++ b/challenge-216/shimon-ben-avraham/raku/ch-1.raku @@ -2,7 +2,7 @@ # Perl Weekly Challenge #216, Challenge 1 # © 2023 Shimon Bollinger. All rights reserved. -# Last modified: Thu 11 May 2023 05:55:50 PM EDT +# Last modified: Thu 11 May 2023 06:24:39 PM EDT # Version 0.0.1 # always use the latest version of Raku diff --git a/challenge-216/shimon-ben-avraham/raku/registration-number.raku b/challenge-216/shimon-ben-avraham/raku/registration-number.raku index 2ad2105af5..f8e06ded41 100755 --- a/challenge-216/shimon-ben-avraham/raku/registration-number.raku +++ b/challenge-216/shimon-ben-avraham/raku/registration-number.raku @@ -2,7 +2,7 @@ # Perl Weekly Challenge #216, Challenge 1 # © 2023 Shimon Bollinger. All rights reserved. -# Last modified: Thu 11 May 2023 05:55:17 PM EDT +# Last modified: Thu 11 May 2023 06:24:53 PM EDT # Version 0.0.1 # always use the latest version of Raku |