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

benchmark.ant: needed a MAIN.

db4
John Benediktsson 2011-09-25 19:08:56 -07:00
parent 605c2b265e
commit 5cf0652db4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,7 +35,7 @@ STRUCT: point { x uint } { y uint } ;
: walkable? ( point -- ? ) : walkable? ( point -- ? )
[ x>> ] [ y>> ] bi [ sum-digits ] bi@ + 25 <= ; inline [ x>> ] [ y>> ] bi [ sum-digits ] bi@ + 25 <= ; inline
:: ant ( -- total ) :: ant ( -- )
200000 <hashtable> hash-set boa :> seen 200000 <hashtable> hash-set boa :> seen
100000 <vector> :> stack 100000 <vector> :> stack
0 :> total! 0 :> total!
@ -54,4 +54,6 @@ STRUCT: point { x uint } { y uint } ;
p clone [ 1 - ] change-y stack push p clone [ 1 - ] change-y stack push
] when ] when
] unless ] unless
] until total ; ] until total 148848 assert= ;
MAIN: ant