factor/extra/benchmark/beust1/beust1.factor

15 lines
378 B
Factor
Raw Normal View History

2008-07-14 01:49:09 -04:00
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: math.ranges math.parser math.vectors sets sequences
kernel io ;
IN: benchmark.beust1
: count-numbers ( max -- n )
1 [a,b] [ number>string all-unique? ] count ; inline
: beust ( -- )
2009-04-17 18:55:01 -04:00
2000000 count-numbers
2008-07-14 01:49:09 -04:00
number>string " unique numbers." append print ;
MAIN: beust