-
數(shù)據(jù)結(jié)構(gòu)
data Lex = Number Double Lex | Plus Lex | Times Lex | End deriving Show -
解析
lexRPN :: String -> Lex lexRPN = go . words where go ("*":rest) = Times (go rest) go ("+":rest) = Plus (go rest) go (num:rest) = Number (read num) (go rest) go [] = End -
數(shù)據(jù)結(jié)構(gòu)的語義
evalRPN :: Lex -> Double evalRPN = go [] where go stack (Number num rest) = go (num : stack) rest go (o1:o2:stack) (Plus rest)= let r = o1 + o2 in r `seq` go (r : stack) rest go (o1:o2:stack) (Times rest)= let r = o1 * o2 in r `seq` go (r : stack) rest go [res] End = res -
測試
ghci> lexRPN "3 1 2 + *" Number 3.0 (Number 1.0 (Number 2.0 (Plus (Times End)))) ghci> evalRPN $ lexRPN "3 1 2 + *" 9.0 ghci> evalRPN $ lexRPN "5 6 2 + 7 * *" 280.0 ghci>
逆波蘭式的實(shí)現(xiàn)
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
- 文/潘曉璐 我一進(jìn)店門晒旅，熙熙樓的掌柜王于貴愁眉苦臉地迎上來，“玉大人敢朱，你說我怎么就攤上這事∷┣” “怎么了？”我有些...
- 文/不壞的土叔 我叫張陵蚓哩，是天一觀的道長。 經(jīng)常有香客問我岸梨，道長，這世上最難降的妖魔是什么曹阔？ 我笑而不...
- 正文 為了忘掉前任赃份，我火速辦了婚禮，結(jié)果婚禮上抓韩，老公的妹妹穿的比我還像新娘。我一直安慰自己谒拴，他們只是感情好，可當(dāng)我...
- 文/花漫 我一把揭開白布英上。 她就那樣靜靜地躺著，像睡著了一般苍日。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上易遣，一...
- 文/蒼蘭香墨 我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼方援！你這毒婦竟也來了？” 一聲冷哼從身側(cè)響起犯戏，我...
- 序言：老撾萬榮一對情侶失蹤，失蹤者是張志新（化名）和其女友劉穎种吸，沒想到半個(gè)月后，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體坚俗，經(jīng)...
- 正文 獨(dú)居荒郊野嶺守林人離奇死亡姜钳，尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
- 正文 我和宋清朗相戀三年，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了哥桥。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
- 正文 年R本政府宣布，位于F島的核電站功蜓，受9級(jí)特大地震影響，放射性物質(zhì)發(fā)生泄漏式撼。R本人自食惡果不足惜，卻給世界環(huán)境...
- 文/蒙蒙 一著隆、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧美浦，春花似錦、人聲如沸抵代。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至康吵，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間晦嵌，已是汗流浹背。 一陣腳步聲響...
- 正文 我出身青樓，卻偏偏與公主長得像含长，于是被迫代替她去往敵國和親。 傳聞我的和親對象是個(gè)殘疾皇子拘泞，可洞房花燭夜當(dāng)晚...
推薦閱讀更多精彩內(nèi)容
- 背景 一年多以前我在知乎上答了有關(guān)LeetCode的問題, 分享了一些自己做題目的經(jīng)驗(yàn)。 張土汪：刷leetcod...
- Astronomygonova - A wrapper for libnova -- Celestial Mech...
- 面試接近尾聲剖笙，面試官通常會(huì)“客氣”地拋出這個(gè)問題，這個(gè)似乎是客套為主的最后一問弥咪，其實(shí)并非看起來那么簡單。目的有兩個(gè)...
