1004 成绩排名 (20分) Haskell 题解

1004 成绩排名 (20分)

读入 n（>0）名学生的姓名、学号、成绩，分别输出成绩最高和成绩最低学生的姓名和学号。

输入格式：

每个测试输入包含 1 个测试用例，格式为

第 1 行：正整数 n
第 2 行：第 1 个学生的姓名 学号 成绩
第 3 行：第 2 个学生的姓名 学号 成绩
  ... ... ...
第 n+1 行：第 n 个学生的姓名 学号 成绩

其中姓名和学号均为不超过 10 个字符的字符串，成绩为 0 到 100 之间的一个整数，这里保证在一组测试用例中没有两个学生的成绩是相同的。

输出格式：

对每个测试用例输出 2 行，第 1 行是成绩最高学生的姓名和学号，第 2 行是成绩最低学生的姓名和学号，字符串间有 1 空格。

输入样例：

3
Joe Math990112 89
Mike CS991301 100
Mary EE990830 95

输出样例：

Mike CS991301
Joe Math990112

解题思路：

利用 foldr1 选择成绩最高的学生和成绩最低的学生，为了只进行一次遍历，用 zip 将学生自己组成了一个 pair，每次只取 fst。

import Control.Monad

main :: IO ()
main = do
    n <- readLn :: IO Int
    st <- forM [1..n] (const getLine)
    let getGrade s = (read $ last $ words s) :: Int
        (mi, mx) = foldr1 (\(x, _) (mi, mx) ->
                                    if getGrade x < getGrade mi then (x, mx) else (
                                    if getGrade x > getGrade mx then (mi, x) else (mi, mx)))
                   (zip st st)
    putStrLn $ unwords $ init $ words mx
    putStrLn $ unwords $ init $ words mi