Paste: recurse

Author: erg
Mode: factor
Date: Sat, 9 May 2020 16:17:08
Plain Text | 
<< SYNTAX: recurse last-word suffix! ; >>
: hello ( n -- )
    dup 5 < [ "hello" print 1 + recurse ] [ drop ] if ;
: hello2 ( n -- )
    dup 5 < [ "hello2" print 1 + recurse ] [ drop ] if ;
0 hello
0 hello2

New Annotation

Summary:
Author:
Mode:
Body: