steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.ant: use ?adjoin.

db4
John Benediktsson 2013-03-23 17:22:36 -07:00
parent 3b7d0681af
commit c46b69f329
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/benchmark/ant/ant.factor
View File

@ -43,8 +43,7 @@ C: <point> point
[ stack empty? ] [ [ stack empty? ] [
stack pop :> p stack pop :> p
p seen in? [ p seen ?adjoin [
p seen adjoin
p walkable? [ p walkable? [
total 1 + total! total 1 + total!
p clone [ 1 + ] change-x stack push 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
p clone [ 1 - ] change-y stack push p clone [ 1 - ] change-y stack push
] when ] when
] unless ] when
] until total 148848 assert= ; ] until total 148848 assert= ;
MAIN: ant-benchmark MAIN: ant-benchmark