Paste: Experimenting with "Object-oriented" Factor
Author: | Loryn |
Mode: | factor |
Date: | Sun, 19 Apr 2009 00:20:57 |
Plain Text |
IN: cricket
TUPLE: innings current-score current-overs target ;
GENERIC: run-rate
GENERIC: gap-to-target
GENERIC: remaining-overs
GENERIC: remaining-runs
GENERIC: target-run-rate
M: innings run-rate
[ current-score>> ] [ current-overs>> ] bi / ;
M: innings gap-to-target
[ target>> ] [ current-score>> ] bi - ;
M: innings remaining-overs
current-overs>> 50 swap - ;
M: innings target-run-rate
[ gap-to-target ] [ remaining-overs ] bi / ;
New Annotation