diff options
| -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(); |