You should probably start by switching strings to Data.Text. David. 2013/8/13 Nadav Chernin :

Hi all, I learn Haskell and i try to solve questions from SPOJ.

Currently, i try to solve problem Sorting Bank Accounts

Here is my code:

import qualified Data.Map as M

extractTest []=[] extractTest (x:xs)=(take n xs):(extractTest (drop (n+1) xs)) where n=read x

emp=M.empty

collect m []=m collect m (x:xs) |M.member x m =collect (M.insert x (amount+1) m) xs |otherwise=collect (M.insert x 1 m) xs where Just amount=M.lookup x m

getList m=map (\(x,k)->x++" "++(show k)) (M.toList m) f x=unlines$(getList (collect emp x))++[""] main=getLine>>=(\x->interact$unlines.map f.take (read x).extractTest.lines)

The problem is that i can't finish it during 7 sec. So i want to know is there more quick solution/method for this problem. Thanks, Nadav

_______________________________________________ Beginners mailing list Beginners@haskell.org http://www.haskell.org/mailman/listinfo/beginners