diff options
| -rw-r--r-- | challenge-192/massa/raku/ch-1.raku | 28 | ||||
| -rw-r--r-- | challenge-192/massa/raku/ch-2.raku | 44 |
2 files changed, 72 insertions, 0 deletions
diff --git a/challenge-192/massa/raku/ch-1.raku b/challenge-192/massa/raku/ch-1.raku new file mode 100644 index 0000000000..18ef1e4cec --- /dev/null +++ b/challenge-192/massa/raku/ch-1.raku @@ -0,0 +1,28 @@ +#!/usr/bin/env raku + +=begin pod + +Week 192: + + https://theweeklychallenge.org/blog/perl-weekly-challenge-192 + +Task #1: Binary Flip + + You are given a positive integer, $n. + + Write a script to find the binary flip. + +=end pod + +use Test; + +is 2, binary-flip 5; +is 3, binary-flip 4; +is 1, binary-flip 6; + +done-testing; + +sub binary-flip(UInt() $_) { + +^$_ +^ (+^0 +< .base(2).chars) +} + diff --git a/challenge-192/massa/raku/ch-2.raku b/challenge-192/massa/raku/ch-2.raku new file mode 100644 index 0000000000..50fbf6a5fb --- /dev/null +++ b/challenge-192/massa/raku/ch-2.raku @@ -0,0 +1,44 @@ +#!/usr/bin/env raku + +=begin pod + +Week 192: + + https://theweeklychallenge.org/blog/perl-weekly-challenge-192 + +Task #2: Equal Distribution + + You are given a list of integers greater than or equal to zero, @list. + + Write a script to distribute the number so that each members are same. If + you succeed then print the total moves otherwise print -1. + + Please follow the rules (as suggested by Neils van Dijke [2022-11-21 13:00] + + 1) You can only move a value of '1' per move + 2) You are only allowed to move a value of '1' to a direct + neighbor/adjacent cell + +=end pod + +use Test; + +is 4, equal-distribution <1 0 5>; +is -1, equal-distribution <0 2 0>; +is 2, equal-distribution <0 3 0>; + +done-testing; + +sub equal-distribution(@list) { + $_ = @list».Int.Array; + return -1 if .sum !%% .elems; + my \mean-element = .sum div .elems; + my $count = 0; + while $_ > 1 { + my \difference = .shift - mean-element; + .[0] += difference; + $count += difference.abs + } + $count +} + |