diff options
| -rw-r--r-- | challenge-053/markus-holzer/raku/ch-1.p6 | 31 | ||||
| -rw-r--r-- | challenge-053/markus-holzer/raku/ch-2.p6 | 33 |
2 files changed, 64 insertions, 0 deletions
diff --git a/challenge-053/markus-holzer/raku/ch-1.p6 b/challenge-053/markus-holzer/raku/ch-1.p6 new file mode 100644 index 0000000000..b9998bf735 --- /dev/null +++ b/challenge-053/markus-holzer/raku/ch-1.p6 @@ -0,0 +1,31 @@ +multi sub MAIN( Int:D $degrees where * ~~ 90|180|270|360 ) +{ + my @matrix[ 3, 3 ] = ( 1..9 ).batch( 3 ); + my $times = $degrees / 90; + + clockwise( @matrix ) for ^$times; + + dd @matrix; +} + +sub clockwise( @matrix ) +{ + my $n = @matrix.elems; + my $x = ( $n / 2 ).floor; + my $y = $n - 1; + + for ^$x -> $i + { + for ^$y -> $j + { + my $dj = $y - $j; + my $di = $y - $i; + my $k = @matrix[ $i; $j ]; + + @matrix[ $i; $j ] = @matrix[ $dj; $i ]; + @matrix[ $dj; $i ] = @matrix[ $di; $dj ]; + @matrix[ $di; $dj ] = @matrix[ $j; $di ]; + @matrix[ $j; $di ] = $k; + } + } +};
\ No newline at end of file diff --git a/challenge-053/markus-holzer/raku/ch-2.p6 b/challenge-053/markus-holzer/raku/ch-2.p6 new file mode 100644 index 0000000000..ff0d8689a6 --- /dev/null +++ b/challenge-053/markus-holzer/raku/ch-2.p6 @@ -0,0 +1,33 @@ +my %rules = + :a({ $_ ~~ 'i'|'o' }), + :e({ $_ ~~ 'a'|'i'|'u' }), + :i({ $_ ~~ 'a'|'e' }), + :o({ $_ ~~ 'i'|'u' }), + :u({ $_ ~~ 'o'|'i' }) +; + +my @vowels = <a e i o u>; + +sub MAIN(Int $n) +{ + .say for gather { build-str( $n, $_ ) for @vowels } +} + +multi sub build-str( $n, $current ) +{ + my $last = $current.substr( * - 1, 1 ); + + for @vowels + { + next + unless %rules{ $_ }( $last ); + + given $current ~ $_ + { + take $_ and next + if .chars == $n; + + build-str( $n, $_ ); + } + } +}
\ No newline at end of file |