Sort by Length for OCaml Golf Competition by *yuko*

dim s$(999):do input""s$(i)
for j=0to i:t$=s$(i):k=t$>"":if!k?s$(j)
if k*chr$(len(t$))+t$<chr$(len(s$(j)))+s$(j)s$(i)=s$(j):s$(j)=t$
next:i=i+k^0loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page