#!usr/bin/perl -w
use Benchmark;

timethese(100,{ Maverick => 
                sub { 
                        for (1..1000){
                                push @_,$_;
                                for (@_[1..$#_-1]){
                                        pop @_ && last if !($_[-1]%$_)
                                }
                        }
                        #print join "\t", @_;
                },

                Ase => 
                sub {
                        $v='1' x 1000;
                        for(2..1000){
                                next if !vec($v,$_-1,8);
                                for($q=$_*2;$q<1001;$q+=$_){
                                        vec($v,$q-1,8)=0
                                }
                        }
                        #print join "\t",grep {vec($v,$_-1,8)} (1..1000);
                },

                Alan =>
                sub {
                        for(1..1000){
                                push @_,$_ if (1 x $_) !~ /^1?$|^(11+?)\1+$/o
                        }
                        #print join "\t", @_;
                }
});