Merge pull request #2196 from holli-holzer/master

initial

4 files changed, 99 insertions, 0 deletions

diff --git a/challenge-076/markus-holzer/raku/ch-2.board b/challenge-076/markus-holzer/raku/ch-2.board
new file mode 100644
index 0000000000..c5766eae93
--- /dev/null
+++ b/challenge-076/markus-holzer/raku/ch-2.board
@@ -0,0 +1,19 @@
+B I D E M I A T S U C C O R S T
+L D E G G I W Q H O D E E H D P
+U S E I R U B U T E A S L A G U
+N G N I Z I L A I C O S C N U D
+T G M I D S T S A R A R E I F G
+S R E N M D C H A S I V E E L I
+S C S H A E U E B R O A D M T E
+H W O V L P E D D L A I U L S S
+R Y O N L A S F C S T A O G O T
+I G U S S R R U G O V A R Y O C
+N R G P A T N A N G I L A M O O
+E I H A C E I V I R U S E S E D
+S E T S U D T T G A R L I C N H
+H V R M X L W I U M S N S O T B
+A E A O F I L C H T O D C A E U
+Z S C D F E C A A I I R L N R F
+A R I I A N Y U T O O O U T P F
+R S E C I S N A B O S C N E R A
+D R S M P C U U N E L T E S I L
\ No newline at end of file
diff --git a/challenge-076/markus-holzer/raku/ch-2.golfed.raku b/challenge-076/markus-holzer/raku/ch-2.golfed.raku
new file mode 100644
index 0000000000..a92512aef8
--- /dev/null
+++ b/challenge-076/markus-holzer/raku/ch-2.golfed.raku
@@ -0,0 +1,9 @@
+sub MAIN($W,$B){
+my@w=$W.IO.lines;
+my@b=$B.IO.slurp.subst(' ',:g).lines;
+my$w=@b[0].chars;
+my@c=@b.map(|*.comb);
+sub f($t){$t~"~"~$t.flip~~m:ex:i/@w/}
+multi r{@c.batch($w),|((0,0),(0,1),(1,0)).map(&r)}
+multi r($o){(^$w).map({@c[$_+$o[0],($_+$w+$o[1])...*]})}
+.say for f r.flat.join}
\ No newline at end of file
diff --git a/challenge-076/markus-holzer/raku/ch-2.raku b/challenge-076/markus-holzer/raku/ch-2.raku
new file mode 100644
index 0000000000..f097c62e5d
--- /dev/null
+++ b/challenge-076/markus-holzer/raku/ch-2.raku
@@ -0,0 +1,17 @@
+unit sub MAIN($words-file, $board-file);
+
+my @words = $words-file.IO.lines;
+my @board = $board-file.IO.slurp.subst( ' ',:g ).lines;
+my $width = @board.head.chars;
+my @chars = @board.map: |*.comb;
+
+.Str.say for words-in rotated-data.flat.join;
+
+sub words-in( $text ) {
+    $text ~'~'~ $text.flip ~~ m:ex:i/@words/ }
+
+sub rotated-data {
+    @chars.batch( $width ), |( (0,0),(0,1),(1,0) ).map: &rotate-data }
+
+sub rotate-data( @offsets ) {
+    (^$width).map: { @chars[ ($_ + @offsets[0]), ($_ + $width + @offsets[1]) ... * ] } }
\ No newline at end of file
diff --git a/challenge-076/markus-holzer/raku/ch-2.words b/challenge-076/markus-holzer/raku/ch-2.words
new file mode 100644
index 0000000000..f566351133
--- /dev/null
+++ b/challenge-076/markus-holzer/raku/ch-2.words
@@ -0,0 +1,54 @@
+argos
+margo
+patna
+traci
+tracie
+aimed
+align
+antes
+arose
+ashed
+blunt
+blunts
+broad
+buries
+clove
+cloven
+constitution
+constitutions
+croon
+depart
+departed
+enter
+filch
+garlic
+goats
+grieve
+grieves
+hazard
+liens
+malign
+malignant
+malls
+midst
+ought
+ovary
+parted
+pudgiest
+quash
+quashed
+raped
+ruses
+shrine
+shrines
+social
+socializing
+spasm
+spasmodic
+succor
+succors
+theorem
+theorems
+virus
+viruses
+wigged
\ No newline at end of file