! 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