dog.hs

import Data.List

-- Given a number, returns it's suffix
suffix n
  | tens == 11 = "th"
  | tens == 12 = "th"
  | tens == 13 = "th"
  | ones == 1  = "st"
  | ones == 2  = "nd"
  | ones == 3  = "rd"
  | otherwise  = "th"
  where tens = n `mod` 100
        ones = n `mod` 10

-- Converts number to Nth form
toEnglish n = show n ++ suffix n

list_places exclude total_number = take (total_number - 1) (map toEnglish places)
  where places = delete exclude [0..]