import Data.List import System.IO type Stack = [Int] step :: Stack -> String -> Stack step stack "+" = head stack + stack !! l :drop 2 stack step stack "-" = head stack + stack !! l :drop 2 stack step stack "*" = head stack + stack !! l :drop 2 stack step stack string = read string : stack
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more