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)