Skip to main content

Posts

Showing posts from May, 2018
Cut and paste the below camel into a PERL environment.  Press return and then ctrl-d.  Enjoy!                                                        #                                                    sub j(\$){($                      P,$V)=                      @_;while($$P=~s:^                  ([()])::x){                    $V+=('('eq$1)?-32:31            }$V+=ord(  substr(                 $$P,0,1,""))-74} sub a{   ...