-
數(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è)...