diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-06-15 11:29:52 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-06-15 11:29:52 +0200 |
| commit | d5de553f892752e3eb4ed18573a98f7de569abaa (patch) | |
| tree | 5ac1457f601bbb2785f9689f992720844e61eab9 | |
| parent | b6d6b490c82b89cc4ef53ed49f65225a880de00a (diff) | |
| download | perlweeklychallenge-club-d5de553f892752e3eb4ed18573a98f7de569abaa.tar.gz perlweeklychallenge-club-d5de553f892752e3eb4ed18573a98f7de569abaa.tar.bz2 perlweeklychallenge-club-d5de553f892752e3eb4ed18573a98f7de569abaa.zip | |
Task 2 almost done.
| -rw-r--r-- | challenge-117/luca-ferrari/raku/ch-2.p6 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/challenge-117/luca-ferrari/raku/ch-2.p6 b/challenge-117/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..3a4070065f --- /dev/null +++ b/challenge-117/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,15 @@ +#!raku + + +sub MAIN( Int $n ) { + + my @directions.push: + 'R' x $n + , 'LH' x $n + , 'L' x $n ~ 'H' x $n + , 'LH' x ($n -1) ~ 'R' x ($n - 1 ) + , 'R' x ($n - 1) ~ 'LH' x ($n - 1 ) + , 'R' x ($n -1) ~ 'LH' x ($n - 1); + + @directions.unique.say; +} |