extra/benchmark/beust1/beust1.factor

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