Paste: testcase

Author: slava
Mode: factor
Date: Wed, 19 Aug 2009 20:40:24
Plain Text |
IN: xxx
:: (blah) ( i n -- )
    i n < [
        i 1 + n (blah)
    ] when ; inline recursive

: blah ( n -- result )
    0 swap { fixnum } declare (2map-reduce) ; inline

New Annotation

Summary:
Author:
Mode:
Body: