partition by parity by pooq

a:[];b:"";while -1#(x:?read(?-,?-,-1))do a:cons(x,a);lsum(if evenp(v)then dispterms(v)else b:sconcat(b,v,"
"),v,sort(a));printf(?t,"
~a",b);

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

download

return to the top page