Reverse Repeated Printing by rolf

main=interact(\f->unlines$map(\x->(\(a:_)(b:_)->unwords[[a],[b],show$sum[1|c<-x,c==a]])x$reverse x)$lines f)

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

download

return to the top page