1 ! Copyright (C) 2012 John Benediktsson
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: kernel math random sequences splitting unicode ;
6 : crazy-unicode-string ( -- string )
7 8 [ 8 0xffff random-integers ] replicate join-words ;
9 : unicode-benchmark ( -- )
10 crazy-unicode-string 8 [
11 [ >title ] [ >lower ] [ >upper ] tri 3append
12 ! [ >lower ] [ >upper ] bi append
15 MAIN: unicode-benchmark