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.
21 lines
248 B
21 lines
248 B
3 years ago
|
: test1 begin dup while 1 - dup . repeat ;
|
||
|
|
10 test1
|
||
|
|
|
||
|
|
: test2 begin 1 - dup . dup 0= until ;
|
||
|
|
10 test2
|
||
|
3 years ago
|
|
||
|
|
: test3
|
||
|
|
dup .
|
||
|
|
begin
|
||
|
|
1 - dup
|
||
|
|
|
||
|
|
." ( "
|
||
|
|
5 begin dup while 1 - dup . repeat
|
||
|
|
." ) " drop
|
||
|
|
|
||
|
|
.
|
||
|
|
dup 0=
|
||
|
|
until ;
|
||
|
|
|
||
|
|
3 test3
|