编辑代码

main = putStrLn "Hello world!     -  haskell.jsrun.net"


-- 定义主函数
main :: IO ()
main = do
    -- 提示用户输入第一个数字
    putStrLn "请输入第一个数字："
    -- 读取用户输入并将其转换为整数
    input1 <- getLine
    let num1 = read input1 :: Int

    -- 提示用户输入第二个数字
    putStrLn "请输入第二个数字："
    input2 <- getLine
    let num2 = read input2 :: Int

    -- 计算和并显示结果
    let result = num1 + num2
    putStrLn ("两个数字的和是: " ++ show result)