aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
commit 948b86eafa
7604 changed files with 108369 additions and 22643 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Matrix-multiplication/Perl-6/matrix-multiplication-1.pl6
View file

@ -1,6 +1,6 @@
sub mmult(@a,@b) {
my @p;
for ^@a X ^@b[0] -> $r, $c {
for ^@a X ^@b[0] -> ($r, $c) {
@p[$r][$c] += @a[$r][$_] * @b[$_][$c] for ^@b;
}
@p;

14
Task/Matrix-multiplication/Perl-6/matrix-multiplication-2.pl6
View file

@ -1,7 +1,11 @@
sub mmult(@a,@b) {
for ^@a -> $r {[
for ^@b[0] -> $c {
[+] (@a[$r][^@b] Z* @b[^@b]»[$c])
sub mmult(\a,\b) {
[
for ^a -> \r {
[
for ^b[0] -> \c {
[+] a[r;^b] Z* b[^b;c]
}
]
}
]}
]
}