demo of nested loop · 26c65655e1 - forth - MightyPork's Gitea

demo of nested loop

master

Ondřej Hruška 3 years ago

parent 5dc19b88ed

commit 26c65655e1

Signed by:

MightyPork

GPG Key ID: 2C5FD5035250423D

1 changed files with 15 additions and 0 deletions

								
									15

loops.forth

								Unescape
								Escape
							
									View File
								
					@ -3,3 +3,18 @@
				
					: test2 begin 1 - dup . dup 0= until ;
					
					: test2 begin 1 - dup . dup 0= until ;
				
					10 test2
					
					10 test2
				
					: test3
				
					    dup .
				
					    begin
				
					    1 - dup
				
					    ." ( "
				
					    5 begin dup while 1 - dup . repeat
				
					    ." ) " drop
				
					    .
				
					    dup 0=
				
					    until ;
				
					3 test3