题解 P1307 【数字反转】

# 先说一句话 水题 # [题解(Haskell)](https://github.com/HoshinoTented/LuoGu/blob/master/src/P1307.hs) ```haskell -- 翻转数字 :: 数字字符串 -> 翻转之后的数字字符串 reverseNumber :: String -> String -- 判断第一个字符是否负号, 如果是, 就把之后的字符串拿去翻转, 并把负号接在前边 reverseNumber ('-':str) = '-' : (reverseNumber str) -- 翻转字符串, 把一个翻转好的数字通过 show 转换成字符串 reverseNumber str = show num where -- 翻转数字 num = read $ reverse str :: Int -- 函数主入口 main :: IO () main = do num <- getLine -- 读取一个数字字符串 putStrLn $ reverseNumber num -- 翻转并输出 return () -- 仅仅用于美观的 return () ``` # 最后 没了