Select Code to Download

sub divides1 { 
    my($d, $n) = @_; 
...
sub divides { 
    0 == $_[1] || divides1(abs $_[0], abs $_[1]) 
}

sub divides { 
    0 == $_[0] ? 0 == $_[1] : 0 == $_[1] % $_[0] 
}