diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 08:31:40 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-22 08:31:40 -0600 |
| commit | e825da945d292303faf30b4f50dd99ad75a91ee9 (patch) | |
| tree | 2ac36cf57a9973c3a3e208e8dcb1cf760dcdf712 | |
| parent | 711541abc4e2cd1cb78a610970c1d3477950ba2c (diff) | |
| download | perlweeklychallenge-club-e825da945d292303faf30b4f50dd99ad75a91ee9.tar.gz perlweeklychallenge-club-e825da945d292303faf30b4f50dd99ad75a91ee9.tar.bz2 perlweeklychallenge-club-e825da945d292303faf30b4f50dd99ad75a91ee9.zip | |
initial
| -rw-r--r-- | challenge-105/mark-anderson/raku/ch-2.raku | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/challenge-105/mark-anderson/raku/ch-2.raku b/challenge-105/mark-anderson/raku/ch-2.raku index 4176b38b24..da7a8240b6 100644 --- a/challenge-105/mark-anderson/raku/ch-2.raku +++ b/challenge-105/mark-anderson/raku/ch-2.raku @@ -4,7 +4,7 @@ # or second syllable so I'm just testing for consonants and vowels. use Test; -plan 7; +plan 8; is name-game("Katie"), chomp q:to/END/; Katie, Katie, bo-batie, @@ -13,12 +13,6 @@ is name-game("Katie"), chomp q:to/END/; Katie! END -is name-game("Aaron"), chomp q:to/END/; - Aaron, Aaron, bo-baaron, - Bonana-fanna fo-faaron - Fee fi mo-maaron - Aaron! - END is name-game("Charles"), chomp q:to/END/; Charles, Charles, bo-barles, @@ -34,6 +28,20 @@ is name-game("Shirley"), chomp q:to/END/; Shirley! END +is name-game("Arnold"), chomp q:to/END/; + Arnold, Arnold, bo-barnold, + Bonana-fanna fo-farnold + Fee fi mo-marnold + Arnold! + END + +is name-game("Aaron"), chomp q:to/END/; + Aaron, Aaron, bo-baaron, + Bonana-fanna fo-faaron + Fee fi mo-maaron + Aaron! + END + is name-game("Billy"), chomp q:to/END/; Billy, Billy, bo-illy, Bonana-fanna fo-filly |