diff options
| -rwxr-xr-x | challenge-120/stuart-little/raku/ch-1.raku | 7 | ||||
| -rwxr-xr-x | challenge-120/stuart-little/raku/ch-2.raku | 11 |
2 files changed, 18 insertions, 0 deletions
diff --git a/challenge-120/stuart-little/raku/ch-1.raku b/challenge-120/stuart-little/raku/ch-1.raku new file mode 100755 index 0000000000..5b6fe3a176 --- /dev/null +++ b/challenge-120/stuart-little/raku/ch-1.raku @@ -0,0 +1,7 @@ +#!/usr/bin/env raku +use v6; + +# run <script> <number> + +say parse-base(sprintf("%08b", @*ARGS[0] +& 255).comb(2).map({.flip}).join(''),2) + diff --git a/challenge-120/stuart-little/raku/ch-2.raku b/challenge-120/stuart-little/raku/ch-2.raku new file mode 100755 index 0000000000..001696d68a --- /dev/null +++ b/challenge-120/stuart-little/raku/ch-2.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku +use v6; + +# run <script> <time> + +sub angl($h,$m) { + my $rawDiff = abs(($h % 12)*30 + $m/2 - $m * 6); + return ($rawDiff <= 180) ?? ($rawDiff) !! (360-$rawDiff); +} + +say angl(|@*ARGS[0].split(":").map(*.Int)) |
