Re: Monads in Perl

[jryan]

As you said, "hey, TMTOWTDI." (:

print parse_equation("Div Div Con 18 Con 2 Con 3");

# just a sexeger
sub parse_equation {
    my $r = reverse $_[0];
    $r =~ s!(\d+(?:\.\d+)?) noC (\d+(?:\.\d+)?) noC viD!
                reverse($2)/reverse($1) . ' noC'
           !e while $r =~ /viD/;
    return scalar reverse $r;
}