diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-06-10 01:19:14 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-06-10 01:19:14 +0100 |
| commit | 95b8c860765b273e3f045eb52542d2baf1997a62 (patch) | |
| tree | df3538039159c2b59d7ccba934030874cdaf2cf6 | |
| parent | 8b3f951507a8de8d0db048954a61ba277d054902 (diff) | |
| parent | b577c5e4a0a63be26d335cb74580c1ae721105c0 (diff) | |
| download | perlweeklychallenge-club-95b8c860765b273e3f045eb52542d2baf1997a62.tar.gz perlweeklychallenge-club-95b8c860765b273e3f045eb52542d2baf1997a62.tar.bz2 perlweeklychallenge-club-95b8c860765b273e3f045eb52542d2baf1997a62.zip | |
Merge pull request #236 from drclaw1394/master
drclaw/ruben solutions for W11 ch-1, ch-2. p5 and p6
| -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; + |