16 lines
462 B
Factor
16 lines
462 B
Factor
! Copyright (C) 2012 John Benediktsson
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel math random sequences strings unicode ;
|
|
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
|