View/Edit #3450:multiply

Name(s): multiply

1:  {a, b} = args
2:  if (this:columns(a) != this:rows(b))
3:    raise(E_INVARG)
4:  endif
5:  result = this:make(this:rows(a), this:columns(b))
6:  for i in [1..this:rows(a)]
7:    for j in [1..this:columns(a)]
8:      for k in [1..this:columns(b)]
9:        result[i][k] = result[i][k] + a[i][j] * b[j][k]
10:     endfor
11:   endfor
12: endfor
13: return result
14: "Last modified by manta (#7165) on Sat Aug 10 08:56:56 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: manta (#7165)

You are not logged in.