diff options
| -rw-r--r-- | challenge-011/ruben-westerberg/README | 5 | ||||
| -rwxr-xr-x | challenge-011/ruben-westerberg/perl5/ch-1.pl | 6 | ||||
| -rwxr-xr-x | challenge-011/ruben-westerberg/perl5/ch-2.pl | 9 | ||||
| -rwxr-xr-x | challenge-011/ruben-westerberg/perl6/ch-1.p6 | 6 | ||||
| -rwxr-xr-x | challenge-011/ruben-westerberg/perl6/ch-2.p6 | 4 |
5 files changed, 27 insertions, 3 deletions
diff --git a/challenge-011/ruben-westerberg/README b/challenge-011/ruben-westerberg/README index 8ac9e1ff34..4e963bf8dc 100644 --- a/challenge-011/ruben-westerberg/README +++ b/challenge-011/ruben-westerberg/README @@ -1,8 +1,7 @@ Solution by Ruben Westerberg ch-1.pl and ch-1.p6 -Simply run the programs +Run the program without command lines arguments to calculate 'equal point' ch-2.pl and ch-2.p6 -When running the programs provide a space separeated list of numbers to rank. Input is sorted in assending order before ranking -If no command line arguments are specifed then a default list is used +run command with a single argument to print an identiy matrix of size specivied as the first argument. If no argument is specified a default size of 10 is used. diff --git a/challenge-011/ruben-westerberg/perl5/ch-1.pl b/challenge-011/ruben-westerberg/perl5/ch-1.pl new file mode 100755 index 0000000000..8c468738fe --- /dev/null +++ b/challenge-011/ruben-westerberg/perl5/ch-1.pl @@ -0,0 +1,6 @@ +#!/usr/bin/env perl +my $m=(212- (my $c=32))/100; +my $ep=$c/(1-$m); +print $ep."\n"; + + diff --git a/challenge-011/ruben-westerberg/perl5/ch-2.pl b/challenge-011/ruben-westerberg/perl5/ch-2.pl new file mode 100755 index 0000000000..3c4054217f --- /dev/null +++ b/challenge-011/ruben-westerberg/perl5/ch-2.pl @@ -0,0 +1,9 @@ +#!/usr/bin/env perl +my $s=$ARGV[0]//10; +my @r; +for(my $i=0; $i<$s; $i++){ + $r[$i]= [(0) x $s]; + ${$r[$i]}[$i]=1; + print join(' ', @{$r[$i]})."\n"; +} + diff --git a/challenge-011/ruben-westerberg/perl6/ch-1.p6 b/challenge-011/ruben-westerberg/perl6/ch-1.p6 new file mode 100755 index 0000000000..e5f6ecadc2 --- /dev/null +++ b/challenge-011/ruben-westerberg/perl6/ch-1.p6 @@ -0,0 +1,6 @@ +#!/usr/bin/env perl6 +my $m=(212- my $c=32)/100; +my $ep=$c/(1-$m); +say $ep; + + diff --git a/challenge-011/ruben-westerberg/perl6/ch-2.p6 b/challenge-011/ruben-westerberg/perl6/ch-2.p6 new file mode 100755 index 0000000000..024ccbf567 --- /dev/null +++ b/challenge-011/ruben-westerberg/perl6/ch-2.p6 @@ -0,0 +1,4 @@ +#!/usr/bin/env perl6 +my $s=@*ARGS[0]//10; +(([1,|(0 xx $s-1)].rotate: -$++) xx $s).map: *.join(" ").say; + |