You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
123456789101112131415 |
-
- : _|&
- ( n1 n2 cell )
- >R >R DUP R> R> ( n1 n1 n2 cell )
- @ EXECUTE ( n1 f )
- ;
-
- ( n1 f n2 -- n1 f )
- : _|
- CREATE , DOES>
- ( n1 f n2 cell )
- ROT IF 2DROP 1 EXIT THEN ( n1 true )
- _|&
- ;
-
|