ProjectEuler score calculator

Main.hs

module Main where

import Control.Monad
import Data.Functor ((<$>))
import Text.HTML.TagSoup

extractData tags =
  case dropWhile (~/= "<td class=problem_solved>") tags of
    [] -> []
    ls@(hd : tl) -> (take 8 ls : extractData tl)

extractCounts :: [Tag String] -> (Int, Int)
extractCounts tags =
  let [task_no, task_solved] = [ c | TagText c <- tags ]
  in (read task_no, (read . (!! 4) . words) task_solved)

main =
  do stats <- (map extractCounts . extractData . parseTags) <$> readFile "progress.html"
     let counts = map snd stats
         score = sum $ map ((200 /) . fromIntegral) counts
     print stats
     print score