Merge pull request #235 from kianmeng/master

Add C1 & C2 solutions for weekly #11

Author: manwar

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

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          ]