133 lines
2.5 KiB
Forth
133 lines
2.5 KiB
Forth
\ Copyright 2021 Bradley D. Nelson
|
|
\
|
|
\ Licensed under the Apache License, Version 2.0 (the "License");
|
|
\ you may not use this file except in compliance with the License.
|
|
\ You may obtain a copy of the License at
|
|
\
|
|
\ http://www.apache.org/licenses/LICENSE-2.0
|
|
\
|
|
\ Unless required by applicable law or agreed to in writing, software
|
|
\ distributed under the License is distributed on an "AS IS" BASIS,
|
|
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
\ See the License for the specific language governing permissions and
|
|
\ limitations under the License.
|
|
|
|
( Test DO LOOP Works )
|
|
|
|
e: test-0doloop
|
|
: foo 0 do i . loop cr ;
|
|
10 foo
|
|
out: 0 1 2 3 4 5 6 7 8 9
|
|
;e
|
|
|
|
e: test-0?do-loop
|
|
: foo 0 ?do i . loop cr ;
|
|
10 foo
|
|
out: 0 1 2 3 4 5 6 7 8 9
|
|
0 foo
|
|
out:
|
|
;e
|
|
|
|
e: test-rev-doloop
|
|
: foo 0 10 do i . -1 +loop cr ;
|
|
foo
|
|
out: 10 9 8 7 6 5 4 3 2 1 0
|
|
;e
|
|
|
|
e: test-rev-?doloop
|
|
: foo 0 10 ?do i . -1 +loop cr ;
|
|
foo
|
|
out: 10 9 8 7 6 5 4 3 2 1 0
|
|
;e
|
|
|
|
e: test-do+loop
|
|
: foo 0 do i . 2 +loop cr ;
|
|
9 foo
|
|
out: 0 2 4 6 8
|
|
10 foo
|
|
out: 0 2 4 6 8
|
|
11 foo
|
|
out: 0 2 4 6 8 10
|
|
1 foo
|
|
out: 0
|
|
;e
|
|
|
|
e: test-?do+loop
|
|
: foo 0 ?do i . 2 +loop cr ;
|
|
9 foo
|
|
out: 0 2 4 6 8
|
|
10 foo
|
|
out: 0 2 4 6 8
|
|
11 foo
|
|
out: 0 2 4 6 8 10
|
|
1 foo
|
|
out: 0
|
|
0 foo
|
|
out:
|
|
;e
|
|
|
|
e: test-doloop-leave
|
|
: foo 0 do 42 emit i 7 = if ." left " leave ." nope" then i . loop cr ;
|
|
7 foo
|
|
out: *0 *1 *2 *3 *4 *5 *6
|
|
8 foo
|
|
out: *0 *1 *2 *3 *4 *5 *6 *left
|
|
9 foo
|
|
out: *0 *1 *2 *3 *4 *5 *6 *left
|
|
;e
|
|
|
|
e: test-do+loop-leave
|
|
: foo 0 do 42 emit i 8 = if ." left " leave ." nope" then i . 2 +loop cr ;
|
|
7 foo
|
|
out: *0 *2 *4 *6
|
|
8 foo
|
|
out: *0 *2 *4 *6
|
|
9 foo
|
|
out: *0 *2 *4 *6 *left
|
|
0 foo
|
|
out: *0
|
|
;e
|
|
|
|
e: test-?do+loop-leave
|
|
: foo 0 ?do 42 emit i 8 = if ." left " leave ." nope" then i . 2 +loop cr ;
|
|
7 foo
|
|
out: *0 *2 *4 *6
|
|
8 foo
|
|
out: *0 *2 *4 *6
|
|
9 foo
|
|
out: *0 *2 *4 *6 *left
|
|
0 foo
|
|
out:
|
|
;e
|
|
|
|
e: test-do+loop-unloop
|
|
: foo 0 do 42 emit i 8 = if ." left " cr unloop exit then i . 2 +loop ." done " cr ;
|
|
7 foo
|
|
out: *0 *2 *4 *6 done
|
|
8 foo
|
|
out: *0 *2 *4 *6 done
|
|
9 foo
|
|
out: *0 *2 *4 *6 *left
|
|
0 foo
|
|
out: *0 done
|
|
;e
|
|
|
|
e: test-?do+loop-unloop
|
|
: foo 0 ?do 42 emit i 8 = if ." left " cr unloop exit then i . 2 +loop ." done " cr ;
|
|
7 foo
|
|
out: *0 *2 *4 *6 done
|
|
8 foo
|
|
out: *0 *2 *4 *6 done
|
|
9 foo
|
|
out: *0 *2 *4 *6 *left
|
|
0 foo
|
|
out: done
|
|
;e
|
|
|
|
e: test-doloop-j
|
|
: foo 5 0 do 3 0 do j . loop loop cr ;
|
|
foo
|
|
out: 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4
|
|
;e
|
|
|