Trying to build a forth runtime in C
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.
 
 
 
forth/loops.forth

20 lines
248 B

: test1 begin dup while 1 - dup . repeat ;
10 test1
: test2 begin 1 - dup . dup 0= until ;
10 test2
: test3
dup .
begin
1 - dup
." ( "
5 begin dup while 1 - dup . repeat
." ) " drop
.
dup 0=
until ;
3 test3