note
knobunc
<p>My best is 74 chars (including newlines and <tt>sub c{}</tt>:<br>
<table bgcolor='black' fgcolor='black'><tr><td><code>
sub c{f($_[0],$_[0]-$_[1]+1) / f($_[1],1)}
sub f{eval join'*',$_[1]..$_[0]}
</code></td></tr></table></p>
<p>Take 2 (66 chars including both subs and newlines, 50 chars for just the sub bodies):
<br>
<table bgcolor='black' fgcolor='black'><tr><td><code>
sub c{f($_[0]-$_[1]+1..$_[0])/f(1..$_[1])}
sub f{eval join'*',@_}
</code></td></tr></table></p>
<p>-ben</p>
83013
83013