
Your skill will accomplish what the force of many cannot
	PerlMonks

Tales from writing a RPN evaluator in Perl 5, Perl 6 and Haskell

by eyepopslikeamosquito (Chancellor)

on Jan 04, 2006 at 09:23 UTC ( #520826=perlmeditation: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this
```
package Rpn;

...
}

1;
```

Select or download this

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

Select or download this

module Rpn-0.0.1-cpan:ASAVIGE;

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

Select or download this

#!/usr/bin/pugs

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

Select or download this

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

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

Select or download this

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

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

Select or download this

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

Select or download this
```
f (x:y:zs) "+" = y+x:zs
```

Select or download this

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

Select or download this

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.

Node Status^?

node history
Node Type: perlmeditation [id://520826]
Approved by Corion
Front-paged by Corion
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others scrutinizing the Monastery: (7)

As of 2017-07-22 19:42 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?