home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / misc / apl-z.ark / IP.ACO < prev    next >
Encoding:
Text File  |  1987-08-23  |  256 b   |  12 lines
  1.       Gr^x ip y<n<m
  2. ;10[ special inner product for large 2 dimensional arrays
  3. ;20[ r^I0
  4. ;30[ n^1
  5. ;40[ outer>m^1
  6. ;50[ inner>r^r,:/x;n<[-y;<m[
  7. ;60[ ~++"1YRy{&m^m:1{/inner
  8. ;70[ ~++1YRx{&n^n:1{/outer
  9. ;80[ r^++1YRx{,"1YRy{Rr
  10.       G
  11. 0[ neg2>z^=z
  12. ;180[ ~+0%f{/