Jump to content

Abbreviations, simple: Difference between revisions

→‎{{header|J}}: bugfix (had left out "half of the algorithm")
(→‎{{header|J}}: bugfix (had left out "half of the algorithm"))
Line 2,283:
2 save set shift 2 si sort sos stack 3 status 4 top transfer 3 type 1 up 1
}} -.LF
 
findmatch=: {{
lens=. >{.ctable
for_ndx. I.y-:"1&tolower (#y){.&> {:ctablelist do. cmd=. ;(<1,ndx){ctable
if. (#y) >: ndx{lens do. toupper;(<1,ndx){ctable cmd return. end.
if. y -: cmd do. toupper cmd return.end.
end.
'*error*'
Line 2,294 ⟶ 2,295:
Task:
<lang J> ;:inv findmatch cut ' riG rePEAT copies put mo rest types fup. 6 poweRin'
RIGHT REPEAT *error* *error*PUT MOVE RESTORE *error* *error* *error* POWERINPUT</lang>
 
=={{header|Java}}==
6,962

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.