$
[(head $ show i, i) | i :: Int8 <- [2 .. 9]] ++
[('T', 10), ('J', 11), ('Q', 12), ('K', 13), ('A', 14)]
естественно, это ghc-warning, потому что кто же head использует, одни лохи.
я обычно как-то выворачиваюсь с uncons, а есть способ чтоб не думать какой-то регулярный,
например, какой-то show который NonEmpty возвращает или что-то?
zip ['1' .. '9'] [1 .. 9]
рррррррр какой ты хитрый! спасибо
letterValues :: Map Char Int8 letterValues = fromList $ zip (['2'..'9'] ++ "TJQKA") [2..]
Обсуждают сегодня