tsuwabuki #6451(2008/06/07 13:39 GMT) [ Haskell ] Rating1/1=1.00
表示が手抜きです
$ runhaskell 6382.hs < 6382.hs [('n',5),(' ',17),('&',3),('(',1),(')',1),('.',5),('=',3),('>',2),('A',1),('C',2),('D',1),('L',1),('a',5),('d',1),('e',6),('f',2),('g',3),('h',2),('i',5),('l',2),('m',4),('n',6),('o',8),('p',5),('q',2),('r',10),('s',3),('t',11),('u',1),('w',1)]
1 2 3 4 5 6
import Data.List import Control.Arrow main = getContents >>= print . freq freq = map (head &&& length) . group . sort
Rating1/1=1.00-0+
[ reply ]
tsuwabuki
#6451()
[
Haskell
]
Rating1/1=1.00
表示が手抜きです
$ runhaskell 6382.hs < 6382.hs [('n',5),(' ',17),('&',3),('(',1),(')',1),('.',5),('=',3),('>',2),('A',1),('C',2),('D',1),('L',1),('a',5),('d',1),('e',6),('f',2),('g',3),('h',2),('i',5),('l',2),('m',4),('n',6),('o',8),('p',5),('q',2),('r',10),('s',3),('t',11),('u',1),('w',1)]
Rating1/1=1.00-0+
[ reply ]