在 haskell 程序中使用斯堪的纳维亚字母 Å Ä Ö

Question

我正在编写一个 Haskell 程序作为学校的作业。这是一个英语约会程序，最终会导致与您的完美匹配的“聊天”。我希望聊天能够切换并用瑞典语书写，这意味着程序需要字母 å ä ö 的代码。我怎么做？

import Data.Char 

kons = "qwrtpsdfghjklzxcvbnmQWRTPSDFGHJKLZXCVNM" 
veral = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

gemen:: Char -> Char
gemen 'A' = 'a'
gemen 'B' = 'b'
gemen 'C' = 'c'
gemen 'D' = 'd'
gemen 'E' = 'e'
gemen 'F' = 'f'
gemen 'G' = 'g'
gemen 'H' = 'h'
gemen 'I' = 'i'
gemen 'J' = 'j'
gemen 'K' = 'k'
gemen 'L' = 'l'
gemen 'M' = 'm'
gemen 'N' = 'n'
gemen 'O' = 'o'
gemen 'P' = 'p'
gemen 'Q' = 'q'
gemen 'R' = 'r'
gemen 'S' = 's'
gemen 'T' = 't'
gemen 'U' = 'u'
gemen 'V' = 'v'
gemen 'W' = 'W'
gemen 'X' = 'x'
gemen 'Y' = 'y'
gemen 'Z' = 'z'
gemen _ = 'a'



dial = do 
print "Hello, what's your name?"
name <- getLine
print ("Hi there " ++ name ++ "!")
print "Where do you live?"
place <- getLine
print ("Oh really " ++ name ++ ", so do I!")
print ("Do you wanna switch to swedish?")
svar <- getLine
if svar == "yes" then print ("Kanon, da gor vi det!") else print ("English is just as good!")


perify :: [Char] -> [Char]
perify xs
    | (head (xs)) == 'P' = ", " ++ xs
    | (head (xs)) `notElem` kons = ", P" ++ [(gemen (head (xs)))] ++ (tail (xs))
    | otherwise = ", P" ++ (tail (xs))

Answer 1

您正在使用print 打印您的字符串。这不仅会使用转义码打印非 ASCII 字符（以及不可打印字符和换行符），还会将字符串括在引号中。

出于非调试目的，您应该始终使用putStrLn，而不是print 来打印字符串。这不仅不会弄乱变音符号，还可以去掉不需要的引号并允许您打印换行符。