SandBox.hs

import Control.Arrow
import Data.List
import Data.Ord
import Text.Regex.Posix

articles = ["Crimen y castigo", 
            "Humillados y ofendidos",
            "Fin de la Eternidad",
            "Siberiada"]

matches :: String -> String -> Int
matches x = (=~x)

sortArticles x = map snd
                 . sortBy (comparing fst)
                 . map (matches x &&& id) $ articles