Power Set by Hem

sub P{my($n,$_,$k)=@_;for($"=", ";$n;$k++,$n/=2){s/.$/$&, /,$_.=P($k)if$n%2}/./?"{$_}":0}push@F,P$%++for 1..(<>+12)&19;print"{@F}"

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

download

return to the top page