character subsets by 51b

s[9];n,l=1;main(i){for(;read(0,s+n,1)?s[n]-s[n-1]&&n++:!i?i=n,l+=2:l>>--i&1&&printf(s+n+~i),l<1<<n;);}

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

download

return to the top page