The following worked for me.
# Returns a string with the letters in s in alphabetical order.
#
procedure alpha( s )
local result, c
result := ""
cset( s ) ? while c := move(1) do
s ? while tab( find ( c ) ) do result ||:= move( 1 )
return result;
end
procedure main()
while write( alpha( read() ) )
end
-------------------------------------------------------
This SF.Net email is sponsored by: GNOME Foundation
Hackers Unite! GUADEC: The world's #1 Open Source Desktop Event.
GNOME Users and Developers European Conference, 28-30th June in Norway
http://2004/guadec.org
_______________________________________________
Unicon-group mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unicon-group
