Help for this page
Select Code to Download
Select
or
download this
sub all_eq { (@_{@_}=1)==keys%_ }
Select
or
download this
@_{@_}=0;keys%_<2