FlyingHero

来源: BlogBus 原始链接: http://www.blogbus.com:80/blogbus/blog/diary.php?diaryid=516254 存档链接: https://web.archive.org/web/20050122015418id_/http://www.blogbus.com:80/blogbus/blog/diary.php?diaryid=516254

FlyingHero 上帝说，要有光，于是就有了光。 FlyingHero说，要Blog，于是就有了这个Blog <<<Strongly Recommend Oscar's Blog! | Homepage | 北大十颗最美丽的树zz>>> My first Haskell Program Time: 2004-11-26 计算整数的加减法。输入式子，输出结果。不支持括号。 不要笑我，我是初学者…… module Main where import IO parse :: String -> Integer parse (x:xs) = parse' "" x xs parse' first '+' (x1:xs) = read first + parse' "" x1 xs parse' first '-' (x1:xs) = read first - parse' "" x1 xs parse' first x [] = read (first++[x]) parse' first x (x1:xs) = parse' (first++[x]) x1 xs main = do putStrLn "Please enter a expression: " input <- getLine (putStrLn.show) (parse input) Posted at 2004-11-26 14:34 Trackbacks(Trackback0) Comments 真好啊，还有空写程序。我考试都要考疯了。 fast ( windfast.blogchina.com ) post at 2004-11-27 12:03 我既要考试又要写程序，这才是真的疯了。 FlyingHero ( ) post at 2004-11-27 21:06 Add comment Last Updates 动态编织的快速算法 搬家了！ 来北京后的第一场雪 如果生命可以再来一次，我一定不放弃文学 实验室师兄的至理名言 北大十颗最美丽的树zz My first Haskell Program Strongly Recommend Oscar's Blog! PPT about AOSD Peking University has been ranked as the 17th toppest university