sort by *yuko*

real a(99);read*,n;read*,(a(i),i=1,n);do j=-999,99;do i=1,n;if(a(i)==-j)print'(i0" "$)',-j;enddo;enddo;end

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

download

return to the top page