Select Code to Download

@_=(1);
L:for(2..100)
...
   push @_,$_
}
print join(" ",@_),"\n";

sub Adam () 
{ @_=(1);L:for(2..100){$i=@_;while(--$i){next L unless $_%$_[$i]}push 
+@_,$_} @_ }
sub Maverick ()
{ for(1..100){push @_,$_;for(@_[1..($#_-1)]){pop @_ and last unless $_
+[-1]%$_}} @_ }