Select Code to Download

package Rpn;

...
}

1;

use strict;
use warnings;
...
    eval { Rpn::evaluate($t->[0]) };
    is($@, $t->[1]);
}

module Rpn-0.0.1-cpan:ASAVIGE;

...
    @stack.elems == 1 or die "Invalid stack:[@stack[]]\n";
    return @stack[0];
}

#!/usr/bin/pugs

...
    try { Rpn::evaluate($t[0]) };
    is($!, $t[1]);
}

{-# OPTIONS_GHC -fglasgow-exts -Wall #-}

...
  | otherwise       = error $ "Invalid stack:" ++ show el
  where
  el = foldl evalStack [] $ words expr

{-# OPTIONS_GHC -fglasgow-exts -Wall #-}

...
main :: IO Counts
main = do runTestTT normalTests
          runTestTT exceptionTests

(Control.Exception.evaluate (Rpn.evaluate x))

f (x:y:zs) "+" = y+x:zs

import Debug.Trace
-- ...
f (x:y:zs) "+" = trace ("+" ++ show x ++ ":" ++ show y ++ ":" ++ show 
+zs) (y+x:zs)

autrijus stares at type Eval x = forall r. ContT r (ReaderT x IO) (Rea
+derT x IO x)
and feels very lost
<shapr> Didn't you write that code?
<autrijus> yeah. and it works
<autrijus> I just don't know what it means.