http://www.perlmonks.org?node_id=172182


in reply to Re: Battle script
in thread Battle script

A variation where the stronger one strikes (potentially)harder (and the one that gets the upper hand has the advantage):
> perl -e "$a=$b=100;while($a>0&&$b>0){$a-=rand($b/10);$b-=rand($a/10) +;print qq($a | $b\n)}"

You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.