Commits

Anonymous committed 8a10933

Separator style changed

  • Participants
  • Parent commits 1cd2487

Comments (0)

Files changed (1)

File md5distribution.hs

 runWithStringsNumberAndLen numStrings stringsLen = 
 	frequency (map (\x -> jokeRank x) (take numStrings (testStrings stringsLen)))
 
-formatStatTuple (x, y) = x ++ ";" ++ (show y)
+formatStatTuple (x, y) = x ++ "," ++ (show y)
 
 main = do
 	 putStrLn (unlines (map (\x -> formatStatTuple x) (runWithStringsNumberAndLen 10000 10)))