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