diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-02-03 03:28:07 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-02-03 03:28:07 +0000 |
| commit | b05c8d6af75e7cb1b587e9c1d9126e042adca1de (patch) | |
| tree | 70e450bb42dd10bcb3fc5aee69bf6f248970b68a | |
| parent | cee704e3ca97d770350b0f2c2c1cd15924ae7450 (diff) | |
| parent | 1c55004f3ef6b356de352d49a1bcf1e8a6e888ef (diff) | |
| download | perlweeklychallenge-club-b05c8d6af75e7cb1b587e9c1d9126e042adca1de.tar.gz perlweeklychallenge-club-b05c8d6af75e7cb1b587e9c1d9126e042adca1de.tar.bz2 perlweeklychallenge-club-b05c8d6af75e7cb1b587e9c1d9126e042adca1de.zip | |
Merge pull request #1202 from jokraft/branch-for-challenge-45
jokraft challenge 45
| -rw-r--r-- | challenge-045/jokraft/raku/ch-1.p6 | 13 | ||||
| -rw-r--r-- | challenge-045/jokraft/raku/ch-2.p6 | 1 |
2 files changed, 14 insertions, 0 deletions
diff --git a/challenge-045/jokraft/raku/ch-1.p6 b/challenge-045/jokraft/raku/ch-1.p6 new file mode 100644 index 0000000000..e6baeae4f9 --- /dev/null +++ b/challenge-045/jokraft/raku/ch-1.p6 @@ -0,0 +1,13 @@ +my Str $str = get(); +$str = $str.subst(" ","",:g); +my @arr = $str.split("", :skip-empty); +my $out = ""; +for (0..7) -> $i { + my $c = 0; + while $c * 8 + $i < @arr.elems { + $out = $out ~ @arr[$i + $c*8]; + $c++; + } + $out = $out ~ " "; +} +say $out; diff --git a/challenge-045/jokraft/raku/ch-2.p6 b/challenge-045/jokraft/raku/ch-2.p6 new file mode 100644 index 0000000000..1c0a4ec065 --- /dev/null +++ b/challenge-045/jokraft/raku/ch-2.p6 @@ -0,0 +1 @@ +IO::Path.new($?FILE).open().readchars().print(); |