diff options
| author | Khaled Mohamed Elborey <37024839+khalidelboray@users.noreply.github.com> | 2019-06-04 05:14:58 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-06-04 05:14:58 +0200 |
| commit | b47374a1e63dd70f4c56ec80ba3bb304cef60f80 (patch) | |
| tree | 4f187fb71afe057e1097ec99153666e87a284449 /challenge-011/khalid | |
| parent | 47f37bec726ae705e23483800ff0b47cf4847986 (diff) | |
| download | perlweeklychallenge-club-b47374a1e63dd70f4c56ec80ba3bb304cef60f80.tar.gz perlweeklychallenge-club-b47374a1e63dd70f4c56ec80ba3bb304cef60f80.tar.bz2 perlweeklychallenge-club-b47374a1e63dd70f4c56ec80ba3bb304cef60f80.zip | |
Perl6 Challenge #2 Solution
Diffstat (limited to 'challenge-011/khalid')
| -rw-r--r-- | challenge-011/khalid/perl6/ch-2.p6 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-011/khalid/perl6/ch-2.p6 b/challenge-011/khalid/perl6/ch-2.p6 new file mode 100644 index 0000000000..f1b8b09b59 --- /dev/null +++ b/challenge-011/khalid/perl6/ch-2.p6 @@ -0,0 +1,10 @@ +sub identity-matrix($n) { + my @id; + for flat ^$n X ^$n -> $i, $j { #0 0 , 0 1 , 0 2 , 0 3 , 0 4 etc.. + @id[$i][$j] = ($i == $j).Int; #the matrix element takes value of '1' if (i=j) + } + @id; +} +say "Rows : " ,identity-matrix(@*ARGS[0]).perl; +say "Formated Matrix : \t"; +.say for identity-matrix(@*ARGS[0]).map: "\t|" ~ * ~ '|' |