partition by parity by *yuko*

real::a(0:7**6)=0;do i=0,19;read*,k;a(k)=a(k)+1;enddo;do j=0,1;print'(i0)',((k,i=1,a(k)),k=j,1e5,2);print*;enddo;end

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

download

return to the top page