Help for this page

Select Code to Download


  1. or download this
    
39887-399900
...
50000-1000500
...
and so on ...
  2. or download this
    0-22
901-7999
10001-39886
1000501-100000000
  3. or download this
    my @v = grep{my $x = $_; not grep{$x == $_}(100..200)}(1..1000);
my @z = grep{my $x = $_; not grep{$x == $_}(170..350)}@v;