capital and small letters by xsd

let f s?(b=String.length s-1)_=for j=1to(lsl)2b do
print_endline s;let rec(!)k=s.[k]<-Obj.magic(lxor)32s.[k];k>0&s.[k]<'_'& !(k-1)in!b
done;;f(read_line())0

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

download

return to the top page