Abbreviations, simple: Difference between revisions
Content added Content deleted
(→{{header|J}}: bugfix (had left out "half of the algorithm")) |
m (→{{header|J}}: add whitespace to help rosettacode's weak syntax highlighter) |
||
Line 2,288: | Line 2,288: | ||
for_ndx. I.y-:"1&tolower (#y){.&> list do. cmd=. ;(<1,ndx){ctable |
for_ndx. I.y-:"1&tolower (#y){.&> list do. cmd=. ;(<1,ndx){ctable |
||
if. (#y) >: ndx{lens do. toupper cmd return. end. |
if. (#y) >: ndx{lens do. toupper cmd return. end. |
||
if. y -: cmd do. toupper cmd return.end. |
if. y -: cmd do. toupper cmd return. end. |
||
end. |
end. |
||
'*error*' |
'*error*' |