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