8 lines
141 B
Text
8 lines
141 B
Text
|
define reverse_string(s);
|
||
|
|
lvars i, l = length(s);
|
||
|
|
for i from l by -1 to 1 do
|
||
|
|
s(i);
|
||
|
|
endfor;
|
||
|
|
consstring(l);
|
||
|
|
enddefine;
|