note
maverick
I removed and extra set of parens, changed the unless to a if!
and compressed out the extra whitespace and got us dead even.
<code>
sub A { @_=(1);L:for(2..100){$i=@_;while(--$i){next L if!($_%$_[$i])}push@_,$_} }
sub M { for(1..100){push@_,$_;for(@_[1..$#_-1]){pop@_ and last if!($_[-1]%$_)}} }
print join(" ",@_),"\n";
</code>
I kept trying to think of how do this with maps and maybe come
out with something different, but nothing has come to me yet<br>
<br>
/\/\averick
<br><br>
##Update##<br>
just saw how to squish out a 3 more characters
<code>
sub A { @_=(1);L:for(2..100){$i=@_;while(--$i){next L if!($_%$_[$i])}push@_,$_} }
sub M { for(1..100){push@_,$_;for(@_[1..$#_-1]){pop@_&&last if!($_[-1]%$_)}} }
</code>
20633
20691