1014 福尔摩斯的约会 (20分) Haskell 题解

大侦探福尔摩斯接到一张奇怪的字条：我们约会吧！ 3485djDkxh4hhGE 2984akDfkkkkggEdsb s&hgsfdk d&Hyscvnm。大侦探很快就明白了，字条上奇怪的乱码实际上就是约会的时间星期四 14:04，因为前面两字符串中第 1 对相同的大写英文字母（大小写有区分）是第 4 个字母 D，代表星期四；第 2 对相同的字符是 E ，那是第 5 个英文字母，代表一天里的第 14 个钟头（于是一天的 0 点到 23 点由数字 0 到 9、以及大写字母 A 到 N 表示）；后面两字符串第 1 对相同的英文字母 s 出现在第 4 个位置（从 0 开始计数）上，代表第 4 分钟。现给定两对字符串，请帮助福尔摩斯解码得到约会的时间。

输入格式：

输入在 4 行中分别给出 4 个非空、不包含空格、且长度不超过 60 的字符串。

输出格式：

在一行中输出约会的时间，格式为 DAY HH:MM，其中 DAY 是某星期的 3 字符缩写，即 MON 表示星期一，TUE 表示星期二，WED 表示星期三，THU 表示星期四，FRI 表示星期五，SAT 表示星期六，SUN 表示星期日。题目输入保证每个测试存在唯一解。

输入样例：

3485djDkxh4hhGE 
2984akDfkkkkggEdsb 
s&hgsfdk 
d&Hyscvnm

输出样例：

THU 14:04

解题思路：

题目描述模糊，容易被误导。

import Data.Char
import Text.Printf

day :: [(Char, Char)] -> Char
day = fst . head . filter (\(a, b) -> a == b && a `elem` ['A' .. 'G'])

dayStr :: Char -> String
dayStr c = case c of 'A' -> "MON"
                     'B' -> "TUE"
                     'C' -> "WED"
                     'D' -> "THU"
                     'E' -> "FRI"
                     'F' -> "SAT"
                     'G' -> "SUN"

hour :: [(Char, Char)] -> Int
hour = f . fst . head . filter (\(a, b) -> a == b && a `elem` ['0'..'9'] ++ ['A'..'N'])
         . tail . dropWhile (\(a, b) -> not (a == b && a `elem` ['A' .. 'G']))
    where
        f c = if isDigit c then digitToInt c else ord c - ord 'A' + 10

minute :: [(Char, Char)] -> Int
minute = length . takeWhile (\(a, b) -> not (a == b && isAlpha a && isAlpha b))

main :: IO ()
main = do
    l1 <- getLine
    l2 <- getLine
    l3 <- getLine
    l4 <- getLine
    let p1 = zip l1 l2
        p2 = zip l3 l4
        d  = dayStr $ day p1
        h  = hour p1
        m  = minute p2
    printf "%s %02d:%02d" d h m