diff options
| -rwxr-xr-x | challenge-010/ruben-westerberg/perl6/ch-1.p6 | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/challenge-010/ruben-westerberg/perl6/ch-1.p6 b/challenge-010/ruben-westerberg/perl6/ch-1.p6 new file mode 100755 index 0000000000..9e08666137 --- /dev/null +++ b/challenge-010/ruben-westerberg/perl6/ch-1.p6 @@ -0,0 +1,79 @@ +#!/usr/bin/env perl6 + +sub MAIN( + Str $input, +) { + given $input { + when /<[MDCLXVI]>/ { + say romanToDecimal2($_); + } + when /\d+/ { + say decimalToRoman($_); + } + default { + die "What on earth are you trying to convert?"; + } + } + +} +sub decimalToRoman ($input) { + my @digits=$input.comb; + my $roman= join '', do for @digits.kv { + my $power=@digits-$^k-1; + #decimalToRoman($^v,@digits-$^k-1); + my @out; + my @p=<I X C M>; + my @h=<V L D>; + my $base=@p[$power]; + my $half=@h[$power]; + given $^v { + when 1..3 { + @out.append: $base xx $_; + } + when 4 { + @out.push: $base; + @out.push: $half; + } + when 5 { + @out.push: $half; + } + when 6..8 { + @out.push: $half; + @out.append: $base xx ($_- 5); + } + when 9 { + @out.push: $base; + @out.push: @p[$power+1]; + } + + } + |@out; + } +} + +sub romanToDecimal2($input) { + + my %r=(M=>1000, C=>100 ,X=>10, I=>1, V=>5, L=>50, D=>500); + my @order=%r.sort: *.value <=> *.value; + my @c=$input.comb; + my $diff=0; + my $sum=0; + + for @c.kv -> $k, $v { + if $k+1 < @c { + if (%r{@c[$k+1]} > %r{$v}) { + $diff=%r{$v}; + } + else { + $sum+=%r{$v}- $diff; + $diff=0; + } + + } + else { + $sum+=%r{$v}- $diff; + } + } + $sum; +} + |