find anagrams by shinh

let rec(@)s i=try(s@i+1)+Char.code s.[i]with _->0and(!)?(b=read_line())a=a@0==b@0&()=print_endline(b);!a;;!(read_line())

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

download

return to the top page