Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

C

Name: Jhonson 2011-03-09 5:06

Can you help me write a program that finds what lowercase symbols are used most in a binary file?

Name: Anonymous 2011-03-09 10:11

Eh, what the hell, have some dead dog too.

import Data.Ix

import Data.Ord

import Data.List



main =

   interact $ intercalate "\n" . map (\g -> head g: ' ': show (length g)) . reverse 

                               . sortBy (comparing length) . group . sort 

                               . filter (inRange ('a','z'))

Newer Posts