Newsgroups: comp.lang.apl
Path: watmath!watserv2.uwaterloo.ca!torn!cs.utexas.edu!wupost!spool.mu.edu!umn.edu!csus.edu!sfsuvax1.sfsu.edu!emclean
From: emclean@sfsuvax1.sfsu.edu (Emmett McLean)
Subject: Re:      reply to Emmett McLean
Message-ID: <1992Dec24.064504.18991@csus.edu>
Sender: news@csus.edu
Organization: San Francisco State University
References: <1992Dec23.032519.29526@yrloc.ipsa.reuter.COM>
Date: Thu, 24 Dec 1992 06:45:04 GMT
Lines: 23

  
NB.   Using the new capabilities of v6.1 I've cooked up the
NB.   following verbs for assignments into rows and columns
NB.   of a matrix.
NB.  
   arow =. >@{:@]`($@[ #. (>@{. ,. i.@$@>@{:)@])`[}
   acol =. >@{:@]`($@[ #. (i.@$@>@{: ,. >@{.)@])`[}

   ] e =. ? 4 3 $ 6
3 4 5
2 1 5
4 4 3
0 3 5
   e arow 2 ; 3 3 3  
3 4 5
2 1 5
3 3 3
0 3 5
   e acol 2 ; 100* i. 4 
3 4   0
2 1 100
4 4 200
0 3 300
