print join "\n",&ss (10,19); sub ss {($p,$o)=@_;$t=$o%3;$w=($o-$t)/3;$l=$p-$t-$w;$w,$l,$t} [download]
In reply to Re: Golf Soccer Stats by boo_radley in thread Golf Soccer Stats by SparkeyG