Select Code to Download

perl -e '@stack = (); sub notify { return qq~!!!!@_[0]!!!~}; for(qw~+ 
+- + - + - + + - +~) {push @stack, $_; (@stack[-2] ne $_  )? print 0 :
+ print notify(1)   };'

 perl -e '@stack = (); sub notify { return qq~!!!!@_[0]!!!~}; for(qw~+
+ - + - + - + + - +~) {push @stack, $_; (@stack[-2] ne $_  )? print 0 
+: print notify(1); if (@stack >= 3){shift @stack}   };  use Data::Dum
+per; print Dumper \@stack;'

0000000!!!!1!!!00$VAR1 = [
          '-',
          '+'
        ];