逆波蘭式的實(shí)現(xiàn)

  1. 數(shù)據(jù)結(jié)構(gòu)

    data Lex = Number Double Lex
     | Plus Lex
     | Times Lex
     | End deriving Show
    
  2. 解析

    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
    
  3. 數(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 
    
  4. 測試

    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>
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市吸申,隨后出現(xiàn)的幾起案子梗劫,更是在濱河造成了極大的恐慌截碴,老刑警劉巖,帶你破解...
    沈念sama閱讀 222,729評(píng)論 6 517
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件走哺,死亡現(xiàn)場離奇詭異,居然都是意外死亡丙躏,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 95,226評(píng)論 3 399
  • 文/潘曉璐 我一進(jìn)店門晒旅,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人敢朱,你說我怎么就攤上這事∷┣” “怎么了?”我有些...
    開封第一講書人閱讀 169,461評(píng)論 0 362
  • 文/不壞的土叔 我叫張陵蚓哩,是天一觀的道長。 經(jīng)常有香客問我岸梨,道長,這世上最難降的妖魔是什么曹阔? 我笑而不...
    開封第一講書人閱讀 60,135評(píng)論 1 300
  • 正文 為了忘掉前任赃份,我火速辦了婚禮,結(jié)果婚禮上抓韩,老公的妹妹穿的比我還像新娘。我一直安慰自己谒拴,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 69,130評(píng)論 6 398
  • 文/花漫 我一把揭開白布英上。 她就那樣靜靜地躺著,像睡著了一般苍日。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上易遣,一...
    開封第一講書人閱讀 52,736評(píng)論 1 312
  • 那天豆茫,我揣著相機(jī)與錄音侨歉,去河邊找鬼揩魂。 笑死,一個(gè)胖子當(dāng)著我的面吹牛火脉,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播倦挂,決...
    沈念sama閱讀 41,179評(píng)論 3 422
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼方援!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起犯戏,我...
    開封第一講書人閱讀 40,124評(píng)論 0 277
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎种吸,沒想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體坚俗,經(jīng)...
    沈念sama閱讀 46,657評(píng)論 1 320
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡姜钳,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,723評(píng)論 3 342
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了哥桥。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 40,872評(píng)論 1 353
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡拟糕,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出送滞,到底是詐尸還是另有隱情,我是刑警寧澤犁嗅,帶...
    沈念sama閱讀 36,533評(píng)論 5 351
  • 正文 年R本政府宣布,位于F島的核電站功蜓,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏式撼。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 42,213評(píng)論 3 336
  • 文/蒙蒙 一著隆、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧美浦,春花似錦、人聲如沸抵代。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,700評(píng)論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至康吵,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間晦嵌,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,819評(píng)論 1 274
  • 我被黑心中介騙來泰國打工惭载, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人描滔。 一個(gè)月前我還...
    沈念sama閱讀 49,304評(píng)論 3 379
  • 正文 我出身青樓,卻偏偏與公主長得像含长,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個(gè)殘疾皇子拘泞,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,876評(píng)論 2 361

推薦閱讀更多精彩內(nèi)容