benchmark.unicode: add benchmark for unicode case conversions.
parent
de52d96d93
commit
2643ecc646
extra/benchmark/unicode
|
@ -0,0 +1,15 @@
|
|||
! Copyright (C) 2012 John Benediktsson
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel math random sequences strings unicode.case ;
|
||||
IN: benchmark.unicode
|
||||
|
||||
: crazy-unicode-string ( -- string )
|
||||
8 [ 8 0xffff random-integers ] replicate " " join ;
|
||||
|
||||
: unicode-benchmark ( -- )
|
||||
crazy-unicode-string 8 [
|
||||
[ >title ] [ >lower ] [ >upper ] tri 3append
|
||||
! [ >lower ] [ >upper ] bi append
|
||||
] times drop ;
|
||||
|
||||
MAIN: unicode-benchmark
|
Loading…
Reference in New Issue