And for dictionary order:
procedure dictorder(s)
local letter_seqs, letter, outs
letter_seqs := table("")
every letter_seqs[map(letter := !s)] ||:= letter
letter_seqs := sort(letter_seqs, 1)
outs := ""
every outs ||:= (!letter_seqs)[2]
return outs
end
procedure main()
every write(dictorder(read()))
exit()
end
__________________________________________________________________
Introducing the New Netscape Internet Service.
Only $9.95 a month -- Sign up today at http://isp.netscape.com/register
Netscape. Just the Net You Need.
New! Netscape Toolbar for Internet Explorer
Search from anywhere on the Web and block those annoying pop-ups.
Download now at http://channels.netscape.com/ns/search/install.jsp
-------------------------------------------------------
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
