RosettaCodeData/Task/Parsing-RPN-calculator-algorithm/Haskell/parsing-rpn-calculator-algorithm-2.hs

calcRPNLog :: String -> ([Double],[(String, [Double])])
calcRPNLog input = mkLog $ zip commands $ tail result
  where result = scanl interprete [] commands
        commands = words input
        mkLog [] = ([], [])
        mkLog res = (snd $ last res, res)
2016 Update 2016-12-05 22:15:40 +01:00			`calcRPNLog :: String -> ([Double],[(String, [Double])])`
			`calcRPNLog input = mkLog $ zip commands $ tail result`
			`where result = scanl interprete [] commands`
			`commands = words input`
			`mkLog [] = ([], [])`
			`mkLog res = (snd $ last res, res)`