Another update from ingydotnet^djgoku
This commit is contained in:
parent
91df62d461
commit
948b86eafa
7604 changed files with 108452 additions and 22726 deletions
|
|
@ -0,0 +1,31 @@
|
|||
function array-mult($A, $B) {
|
||||
$C = @()
|
||||
if($n -gt 0) {
|
||||
$C = 0..($n-1)| foreach{@(0)}
|
||||
0..($n-1)| foreach{
|
||||
$i = $_
|
||||
$C[$i] = 0..($n-1)| foreach{
|
||||
$j = $_
|
||||
$((0..($n-1) | foreach{
|
||||
$k = $_
|
||||
$A[$i][$k]*$B[$k][$j]
|
||||
} | measure -Sum).Sum)
|
||||
}
|
||||
}
|
||||
}
|
||||
$C
|
||||
}
|
||||
function show($a) {
|
||||
if($a.Count -gt 0) {
|
||||
$n = $a.Count - 1
|
||||
0..$n | foreach{ "$($a[$_][0..$n])" }
|
||||
}
|
||||
}
|
||||
$A = @(@(1,2),@(3,4))
|
||||
$B = @(@(5,6),@(7,8))
|
||||
$I = @(@(1,0),@(0,1))
|
||||
$C = array-mult $A $B
|
||||
$D = array-mult $A $I
|
||||
show $C
|
||||
" "
|
||||
show $D
|
||||
Loading…
Add table
Add a link
Reference in a new issue