Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...

$notHash->value($_) == 1 && push @singles, $_ for $notHash->keys();
print join (', ', @singles), "  are the numbers that appear only once\
+n";
  2. or download this
    22, 34, 55  are the numbers that appear only once