home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug172.arc / APL-Z.LBR / TRANSPOS.ACO < prev    next >
Text File  |  1979-12-31  |  256b  |  16 lines

  1.       Gr^transpose x<rx<i<o
  2. ;10[ rx^Rr^x
  3. ;20[ o^Lo
  4. ;30[ ~+1&RRx{/i^0
  5. ;40[ Lo^0
  6. ;50[ r^Irx;0[
  7. ;60[ lp>~++Rrx{(RRr^+Irx;i^i:1[{J.:rx;i:1[-r{/lp
  8. ;70[ rx^Rr
  9. ;80[ x^,x
  10. ;90[ r^,r
  11. ;100[ r^rxRx^x;r[
  12. ;110[ Lo^o
  13.       G
  14. 0[ l2>tcb^-/iURb
  15. ;100[ v^tcb-"1:Ixlb
  16. ;110[ e^