haskell-＆gt;打印排序列表 - 错误：输入上的解析错误＆＃x2018;打印＆＃x2019;

Question

我试图在GHCI上运行此程序，在那里它以其姓氏的上升顺序将名称重新定位。但是，当我运行它时，我会得到此错误“错误：输入'print'''上的解析错误。
如果您能帮助我，我将非常感谢。谢谢！[在此处输入图像说明] [1]

import Data.List

main :: IO ()

names = [("Tatsunori", "Ono"), ("Kishore", "Palanisamy"), ("Calder", "Hosgood"), ("Yiling", "Zhuang")]

main = do
 let compareLastNames name1 name2 = if lastName1 > lastName2
                                      then GT
                                      else if lastName1 < lastName2
                                            then LT
                                            else EQ
   where lastName1 = snd name1
         lastName2 = snd name2
   
   print (sortBy compareLastNames names)

Answer 1

原因是在LET的相同级别上被缩进的，而不是AccompellastNames函数。

您可以用：

main = do
    let compareLastNames name1 name2 = if lastName1 > lastName2 then GT else if lastName1 < lastName2 then LT else EQ
            where lastName1 = snd name1
                  lastName2 = snd name2
    print (sortBy compareLastNames names)

但是您使它变得太复杂了，可以与 on ::（b - ＆gt; b - ＆gt; c） - ＆gt;上（a - ＆gt; b） - ＆gt; a - ＆gt; a - ＆gt; C ：

import Data.Function(on)

main = print (sortBy (compare `on` snd) names)

或使用 sorton :: ord b =＆gt; （a - ＆gt; b） - ＆gt; [a] - ＆gt; [a] ：

import Data.List(sortOn)

main = print (sortOn snd names)