From 49306fd9aa68dadd07eb7e8e7f7f73f5b59a537d Mon Sep 17 00:00:00 2001 From: "Kian-Meng, Ang" Date: Sun, 9 Jun 2019 23:16:57 +0800 Subject: Add C1 & C2 solutions for weekly #011 --- challenge-011/kian-meng-ang/perl5/ch-1.pl | 15 +++++++++++++++ challenge-011/kian-meng-ang/perl5/ch-2.pl | 22 ++++++++++++++++++++++ 2 files changed, 37 insertions(+) create mode 100644 challenge-011/kian-meng-ang/perl5/ch-1.pl create mode 100644 challenge-011/kian-meng-ang/perl5/ch-2.pl 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 ] -- cgit