2008-07-14 01:49:09 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2012-07-19 22:10:09 -04:00
|
|
|
USING: kernel math.ranges math.parser sets sequences ;
|
2008-07-14 01:49:09 -04:00
|
|
|
IN: benchmark.beust1
|
|
|
|
|
|
|
|
|
|
: count-numbers ( max -- n )
|
|
|
|
|
1 [a,b] [ number>string all-unique? ] count ; inline
|
|
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
: beust1-benchmark ( -- )
|
2012-07-19 22:10:09 -04:00
|
|
|
2000000 count-numbers 229050 assert= ;
|
2008-07-14 01:49:09 -04:00
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
MAIN: beust1-benchmark
|
