partition by parity by pooq

a:[];b:"";while(x:?read(?-,?-,~))#~do a:cons(x,a);lsum(if oddp(v)then b:concat(b,v,"
")else dispterms(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