Lines Matching full:do
46 ." Interactive do .. loop: "
47 " loop (1)" 0 h# 10 0 do drop i loop h# f = .passed?
48 " no loop (1)" 1 0 0 ?do 1- loop .passed?
49 " leave (1)" h# 10 0 do i 5 = if 1 leave drop 0 then loop .passed?
51 ." Compiled do .. loop: "
52 : loop1 do drop i loop h# f = .passed? ;
53 : loop2 ?do 1- loop .passed? ;
54 : loop3 do i 3 = if drop i leave 0 then loop ;
55 : loop7 do i 4 = if drop i unloop exit then loop ;
61 ." Interactive do .. +loop: "
62 " loop by 2" 0 h# 10 0 do drop i 2 +loop h# e = .passed?
63 " loop down by 2" 0 -2 h# 10 do drop i -2 +loop h# -2 = .passed?
65 ." Compiled do .. +loop: "
66 : loop4 0 h# 10 0 do drop i 2 +loop h# e = .passed? ;
67 : loop5 0 -2 h# 10 do drop i -2 +loop -2 = .passed? ;
72 : loop6 0 h# 4 0 do 8 0 do 1 j 3 lshift i + lshift xor loop loop ;
76 " loop.7" h# 10 -37 8 bounds do drop i loop -30 = .passed?
77 " loop.8" h# 10 -37 -30 do drop i -1 +loop -37 = .passed?