diff options
| author | jokraft <jan.ole.kraft@gmail.com> | 2020-02-03 01:06:43 +0100 |
|---|---|---|
| committer | jokraft <jan.ole.kraft@gmail.com> | 2020-02-03 01:06:43 +0100 |
| commit | 1c55004f3ef6b356de352d49a1bcf1e8a6e888ef (patch) | |
| tree | 70236a9dd2273df50074d21fbebd6f965824dac0 /challenge-045 | |
| parent | e5c9462069c42a86d26d468b91d0bc7ff7e22b8f (diff) | |
| download | perlweeklychallenge-club-1c55004f3ef6b356de352d49a1bcf1e8a6e888ef.tar.gz perlweeklychallenge-club-1c55004f3ef6b356de352d49a1bcf1e8a6e888ef.tar.bz2 perlweeklychallenge-club-1c55004f3ef6b356de352d49a1bcf1e8a6e888ef.zip | |
jokraft challenge 45
Diffstat (limited to 'challenge-045')
| -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(); |