extra/benchmark/beust1/beust1.factor

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