diff options
| -rwxr-xr-x | challenge-006/ruben-westerberg/perl5/ch-1.pl | 30 | ||||
| -rwxr-xr-x | challenge-006/ruben-westerberg/perl6/ch-1.p6 | 11 |
2 files changed, 41 insertions, 0 deletions
diff --git a/challenge-006/ruben-westerberg/perl5/ch-1.pl b/challenge-006/ruben-westerberg/perl5/ch-1.pl new file mode 100755 index 0000000000..d8ae69a771 --- /dev/null +++ b/challenge-006/ruben-westerberg/perl5/ch-1.pl @@ -0,0 +1,30 @@ +#!/usr/bin/env perl +# +my $string=join ',', @ARGV; + +my @a=split ',' , $string; +my %bag; +foreach (@a) { + $bag{$_}++; +} +my @k1= sort { $a <=> $b} keys %bag; +my @k2= @k1; push @k2, shift @k2; +my @p; +for (my $i=0; $i<=$#k1; $i++) { + if (abs($k2[$i]-$k1[$i]) > 1 ) { + push @p,$i; + push @p ,$i+1; + } +} +unshift @p, 0; +pop @p; +my @out; +for (my $i=0; $i<$#p; $i+=2) { + my $a=$k1[$p[$i]]; + my $b=$k1[$p[$i+1]]; + my $val= $a-$b == 0? $a: "$a-$b"; + push @out, $val; +} +print (join ",", @out); +print "\n"; + diff --git a/challenge-006/ruben-westerberg/perl6/ch-1.p6 b/challenge-006/ruben-westerberg/perl6/ch-1.p6 new file mode 100755 index 0000000000..9438726911 --- /dev/null +++ b/challenge-006/ruben-westerberg/perl6/ch-1.p6 @@ -0,0 +1,11 @@ +#!/usr/bin/env perl6 +my $string= @*ARGS ?? @*ARGS.join(",")!! prompt "Enter numbers: "; +my $a=$string.split(",",:skip-empty)>>.trim.grep({!/^$/})>>.Int.Bag; +my @r1=$a.keys.sort; +my @diff=@r1.rotate >>-<< @r1; +my @p=(0,|map {|($^k,$k+1) if abs($^v) > 1}, @diff.kv); + +@p.pop; +say join ",", map {@r1[$^a]==@r1[$^b]??@r1[$^a]!!"@r1[$^a]-@r1[$^b]"}, @p; + + |