diff options
| -rwxr-xr-x | challenge-070/mohammad-anwar/raku/ch-1.raku | 21 | ||||
| -rwxr-xr-x | challenge-070/mohammad-anwar/raku/ch-1a.raku | 1 | ||||
| -rwxr-xr-x | challenge-070/mohammad-anwar/raku/ch-2a.raku | 1 |
3 files changed, 2 insertions, 21 deletions
diff --git a/challenge-070/mohammad-anwar/raku/ch-1.raku b/challenge-070/mohammad-anwar/raku/ch-1.raku index 4dc8463077..4476d74de1 100755 --- a/challenge-070/mohammad-anwar/raku/ch-1.raku +++ b/challenge-070/mohammad-anwar/raku/ch-1.raku @@ -26,24 +26,3 @@ sub swap(Str $string, Int $count, Int $offset) { return @array.join(''); } - -=finish -my $S = $ARGV[0] || 'perlandraku'; -my $C = $ARGV[1] || 3; -my $O = $ARGV[2] || 4; - -print sprintf("%s => %s\n", $S, swap($S, $C, $O)); - -sub swap { - my ($string, $count, $offset) = @_; - - my $length = length($string); - my @array = split //, $string; - foreach my $i (1..$count) { - my $a = $i % $length; - my $b = ($i + $offset) % $length; - ($array[$a], $array[$b]) = ($array[$b], $array[$a]); - } - - return join '', @array; -} diff --git a/challenge-070/mohammad-anwar/raku/ch-1a.raku b/challenge-070/mohammad-anwar/raku/ch-1a.raku index 5a50b0f603..8989d62ce4 100755 --- a/challenge-070/mohammad-anwar/raku/ch-1a.raku +++ b/challenge-070/mohammad-anwar/raku/ch-1a.raku @@ -13,6 +13,7 @@ use Test; is swap('perlandraku', 3, 4), 'pndraerlaku', 'testing perlandraku.'; + is swap('weeklychallenge', 5, 2), 'wklycheeallenge', 'testing weeklychallenge.'; diff --git a/challenge-070/mohammad-anwar/raku/ch-2a.raku b/challenge-070/mohammad-anwar/raku/ch-2a.raku index 67c94c5d6c..f9a2a36c00 100755 --- a/challenge-070/mohammad-anwar/raku/ch-2a.raku +++ b/challenge-070/mohammad-anwar/raku/ch-2a.raku @@ -13,6 +13,7 @@ use Test; is-deeply generate-gray-code-sequence(3), (0, 1, 3, 2, 6, 7, 5, 4), 'testing 3-bin grey code sequence.'; + is-deeply generate-gray-code-sequence(4), (0, 1, 3, 2, 6, 7, 5, 4, 12, 13, 15, 14, 10, 11, 9, 8), 'testing 4-bit grey code sequence.'; |