diff options
| -rw-r--r-- | challenge-074/simon-proctor/raku/ch-2.raku | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/challenge-074/simon-proctor/raku/ch-2.raku b/challenge-074/simon-proctor/raku/ch-2.raku new file mode 100644 index 0000000000..8d9d133b5f --- /dev/null +++ b/challenge-074/simon-proctor/raku/ch-2.raku @@ -0,0 +1,29 @@ +#!/usr/bin/env raku + +use v6; + +#| Given a string print the FNR character for each sub string +#| Prints # if there isn't one at a given point +sub MAIN ( Str $input ) { + my @codes = $input.comb; + my @in; + my @out; + + for @codes -> $c { + @in.push($c); + @out.push(fnr(@in)); + } + + say @out.join(""); +} + +sub fnr ( @values ) { + my $counts = bag(@values); + + for @values.reverse -> $v { + return $v if $counts{$v} ~~ 1; + } + + return '#'; +} + |