Help for this page

Select Code to Download


  1. or download this
    sub is_balanced { eval "qw($_[0])" }
    
  2. or download this
    $ perl -le'
    sub is_balanced { eval qq($_[0]) }
    ...
    Is (((1 + 2 * (3 + (5/4) + 8) + 6)) balanced? no
    Is (((1 + 2 * (3 + (5/4) + 8) + 6)))) balanced? no