1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math.ranges math.parser sets sequences ;
6 : count-numbers ( max -- n )
7 1 [a..b] [ number>string all-unique? ] count ; inline
9 : beust1-benchmark ( -- )
10 2000000 count-numbers 229050 assert= ;
12 MAIN: beust1-benchmark