Add C1 & C2 solutions for weekly #011

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          ]