benchmark.ant: use ?adjoin.
parent
3b7d0681af
commit
c46b69f329
|
@ -43,8 +43,7 @@ C: <point> point
|
|||
|
||||
[ stack empty? ] [
|
||||
stack pop :> p
|
||||
p seen in? [
|
||||
p seen adjoin
|
||||
p seen ?adjoin [
|
||||
p walkable? [
|
||||
total 1 + total!
|
||||
p clone [ 1 + ] change-x stack push
|
||||
|
@ -52,7 +51,7 @@ C: <point> point
|
|||
p clone [ 1 + ] change-y stack push
|
||||
p clone [ 1 - ] change-y stack push
|
||||
] when
|
||||
] unless
|
||||
] when
|
||||
] until total 148848 assert= ;
|
||||
|
||||
MAIN: ant-benchmark
|
||||
|
|
Loading…
Reference in New Issue