advanced code snippet search

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

Expand | Embed | Plain Text 
  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.