home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug172.arc / APL-Z.LBR / ROTATE.ACO < prev    next >
Text File  |  1979-12-31  |  512b  |  28 lines
  1.       Gz^a rotate b<cb<xlb<nxlb<tcb<v<e<rvlz<rvlb<rvla<j<m<k
  2. ;10[ cb^-/Rb
  3. ;20[ xlb^+Rb{;i[
  4. ;30[ nxlb^++"1:i{YRb{,iURb
  5. ;40[ ~+1(-/Ra{/l1
  6. ;50[ a^nxlbRa
  7. ;60[ l1>~++1E0(xlbMa{}+1(-/xlb{}0(cb{/l2
  8. ;70[ z^b
  9. ;80[ ~0
  10. ;90[ l2>tcb^-/iURb
  11. ;100[ v^tcb-"1:Ixlb
  12. ;110[ e^tcb-"1:xlb
  13. ;120[ rvlz^cbR1Y0Rb
  14. ;130[ rvlb^,b
  15. ;140[ rvla^,a
  16. ;150[ j^m^1
  17. ;160[ outer>k^1
  18. ;170[ inner>rvlz;j:v[^rvla;m[rvlb;j:v[
  19. ;180[ k^k:1
  20. ;190[ j^j:1
  21. ;200[ m^m:1
  22. ;210[ ~+k$tcb{/inner
  23. ;220[ j^j:e
  24. ;230[ ~+j$cb{/outer
  25. ;240[ z^+Rb{Rrvlz
  26.       G
  27. solve
  28. ;200[ mv