tiebreaker fiddling (what's the point) and fix the tr bit. If I had more time, I might work on a different algorithm.
#!perl -lp
sub
r{$_=pop;for$r(qw{?)(\+
)(&
)(\*|/}){$_="@_[0,2,1]"if@_=map
r($_),/(.*$r)(.+)/}y#&-/#a-j#;$_}s/\s//g;s#(\)|\d)-#$1&#g;1while
s#\(([^()]+)\)#r$1#e;$_=r$_;y#a-j#-'-/#
|
this is probably my last entry. teriffic.
#!perl -lp
sub r{$_=pop;for$r(qw{?)(\+ )(& )(\*|/}){$_="@_[0,2,1]"if@_=map{r($_)}/(.*$r)(.+)/}y#*-/&#a-g#;$_}s/\s//g;s#(\)|\d)-#$1&#g;1while s#\(([^()]+)\)#r$1#e;$_=r$_;y#a-g#*-/-#
|
did somebody mention a dead horse?
#!perl -lp
sub r{$_=pop;for$r(qw{?)(\+ )(- )(\*|/}){$_=r($_[0]).$".r(pop).$".pop if@_=/(.*$r)(.*)/}y#-/*+#a-d#;$_}s/\s//g;s#(^|[^0-9)])-#$1~#g;1while s#\(([^()]+)\)#r$1#e;$_=r$_;y#a-d~#-/*+-#
|
I'd like to say this was my first solution. ( can't get that damn ))+(( soltion to work at all! )
#!perl -lp
sub r{$_=pop;for$r(qw{+?)(\+ *)(- *)(\*|/}){if(@_=/(.$r)(.*)/){$_=r($_[0]).$".r(pop).$".pop}}y#-/*+#a-d#;$_}s/\s//g;s#(^|[(*/+-])-#$1~#g;1while s#\(([^()]+)\)#r$1#e;$_=r$_;y#a-d~#-/*+-#
|