12 lines
349 B
Text
12 lines
349 B
Text
reverse = proc (s: string) returns (string)
|
|
rslt: array[char] := array[char]$predict(1,string$size(s))
|
|
for c: char in string$chars(s) do
|
|
array[char]$addl(rslt,c)
|
|
end
|
|
return(string$ac2s(rslt))
|
|
end reverse
|
|
|
|
start_up = proc ()
|
|
po: stream := stream$primary_output()
|
|
stream$putl(po, reverse("!dlrow ,olleH"))
|
|
end start_up
|