diff options
| -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 |
4 files changed, 25 insertions, 0 deletions
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; + |