Paste: random testing

Author: cabfare
Mode: factor
Date: Mon, 12 Dec 2011 04:37:58
Plain Text | 
CONSTANT: terms { [ + ] [ - ] [ * ] [ / ] }
CONSTANT: nums  { -5 -4 -3 -2 -1 0 1 2 3 4 5 }

: rterm ( -- term ) terms random ;
: rnum  ( -- number ) nums random [ ] curry ;
: rnode ( -- node ) { [ rnum ] [ rterm ] } random call ; inline

New Annotation

Summary:
Author:
Mode:
Body: