Lines Matching refs:passed
27 " no loop (1) " 1 begin 0 while 1- repeat .passed?
28 " loop to 0 (1)" 9 begin dup while 1- repeat 0= .passed?
31 : btest1 1 begin 0 while 1- repeat .passed? ;
32 : btest2 9 begin dup while 1- repeat 0= .passed? ;
37 " no loop (3)" 1 begin dup until .passed?
38 " loop to 0 (3)" 9 begin 1- dup 0= until 0= .passed?
41 : btest3 1 begin dup until .passed? ;
42 : btest4 9 begin 1- dup 0= until 0= .passed? ;
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?
52 : loop1 do drop i loop h# f = .passed? ;
53 : loop2 ?do 1- loop .passed? ;
58 " leave (2)" 3 4 0 loop3 3 = .passed?
59 " unloop" 5 6 0 loop7 4 = .passed?
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?
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? ;
73 " i,j sum" loop6 lwsplit over = swap h# ffff = and .passed?
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?
80 : loop9 begin true exit again false ; loop9 " loop9" rot .passed?
96 " loop.10" loop10 in-count 10 = out-count 1 = and .passed?