note
tobyink
<p>Nicely obfuscated, but this is shorter:</p>
<del><c>
$_=pop;$_/=2until$_%2;print/(5|^1)$/?Y:N,$/
</c></del>
<c>
$_=pop;for$.(2,5){$_/=$.until$_%$.}print/^1$/?Y:N,$/
</c>
<p>Of course, neither of these works for the fraction 3/6 which of course terminates as 0.5. For that to work, you'd need to add an initial step to reduce the fraction to its lowest terms.</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
1006283
1006283