Posted By

u1ik on 10/07/08


Tagged


Versions (?)

Who likes this?

1 person have marked this snippet as a favorite

keigoi


Tag cloud


 / Published in: Other
 

haskell

  1. import List
  2. genTags tags = (unwords.map (\(x, y) -> "<font size=" ++ show (min (1 + y*5 `div` mx) 5) ++ "/>" ++ x ++ "</font>")) ws
  3. where mx = (maximum.map snd) ws
  4. ws = (map (\x->(head x, length x)).group.sort.words.unwords) tags

Report this snippet  

You need to login to post a comment.