home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug172.arc / APL-Z.LBR / IP.ACO < prev    next >
Text File  |  1979-12-31  |  256b  |  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{/