Help for this page

Select Code to Download


  1. or download this
    sub f{local($^W,$a)=(0,pop);grep{!exists$a->{$_}{O}or$a->{$_}{O}ne$a->
+{$_}{C}}keys%$a} #87
  2. or download this
    sub g{local$^W=0;my$a=pop;grep{!exists$a->{$_}{O}or$a->{$_}{O}ne$a->{$
+_}{C}}keys%$a} #85
  3. or download this
    sub h{$^W=0;$a=pop;grep{!exists$a->{$_}{O}or$a->{$_}{O}ne$a->{$_}{C}}k
+eys%$a} #78