home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / apl / 1265 < prev    next >
Encoding:
Text File  |  1992-12-24  |  816 b   |  35 lines
  1. Newsgroups: comp.lang.apl
  2. Path: sparky!uunet!wupost!spool.mu.edu!umn.edu!csus.edu!sfsuvax1.sfsu.edu!emclean
  3. From: emclean@sfsuvax1.sfsu.edu (Emmett McLean)
  4. Subject: Re:      reply to Emmett McLean
  5. Message-ID: <1992Dec24.064504.18991@csus.edu>
  6. Sender: news@csus.edu
  7. Organization: San Francisco State University
  8. References: <1992Dec23.032519.29526@yrloc.ipsa.reuter.COM>
  9. Date: Thu, 24 Dec 1992 06:45:04 GMT
  10. Lines: 23
  11.  
  12.   
  13. NB.   Using the new capabilities of v6.1 I've cooked up the
  14. NB.   following verbs for assignments into rows and columns
  15. NB.   of a matrix.
  16. NB.  
  17.    arow =. >@{:@]`($@[ #. (>@{. ,. i.@$@>@{:)@])`[}
  18.    acol =. >@{:@]`($@[ #. (i.@$@>@{: ,. >@{.)@])`[}
  19.  
  20.    ] e =. ? 4 3 $ 6
  21. 3 4 5
  22. 2 1 5
  23. 4 4 3
  24. 0 3 5
  25.    e arow 2 ; 3 3 3  
  26. 3 4 5
  27. 2 1 5
  28. 3 3 3
  29. 0 3 5
  30.    e acol 2 ; 100* i. 4 
  31. 3 4   0
  32. 2 1 100
  33. 4 4 200
  34. 0 3 300
  35.