diff options
| -rw-r--r-- | challenge-011/kian-meng-ang/perl5/ch-1.pl | 15 | ||||
| -rw-r--r-- | challenge-011/kian-meng-ang/perl5/ch-2.pl | 22 |
2 files changed, 37 insertions, 0 deletions
diff --git a/challenge-011/kian-meng-ang/perl5/ch-1.pl b/challenge-011/kian-meng-ang/perl5/ch-1.pl new file mode 100644 index 0000000000..de657597c4 --- /dev/null +++ b/challenge-011/kian-meng-ang/perl5/ch-1.pl @@ -0,0 +1,15 @@ +# vi:et:sw=4 ts=4 ft=perl +#!/usr/bin/env perl + +use v5.10; +use strict; +use warnings; +use utf8; + +say grep { $_ == ($_ * 9 / 5) + 32 } (-100 .. 100); + +1; + +__END__ +$ perl ch-1.pl +-40 diff --git a/challenge-011/kian-meng-ang/perl5/ch-2.pl b/challenge-011/kian-meng-ang/perl5/ch-2.pl new file mode 100644 index 0000000000..0ce264e07b --- /dev/null +++ b/challenge-011/kian-meng-ang/perl5/ch-2.pl @@ -0,0 +1,22 @@ +# vi:et:sw=4 ts=4 ft=perl +#!/usr/bin/env perl + +use v5.10; +use strict; +use warnings; +use Math::MatrixReal; + +my $n = shift; +my $matrix = Math::MatrixReal->new_diag([(1) x $n]); +$matrix->display_precision(0); +say $matrix; + +1; + +__END__ + +$ perl ch-2.pl 4 +[ 1 0 0 0 ] +[ 0 1 0 0 ] +[ 0 0 1 0 ] +[ 0 0 0 1 ] |