Reverse Repeated Printing by pooq

l:length;while(x:?read\-line(?-,?-,~))#~do(a:charlist(x),printf(?t,"~a ~a ~a
",a[1],last(a),l(a)/l(unique(a))));

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

download

return to the top page