! Copyright (C) 2012 John Benediktsson
! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math random sequences strings unicode ;
+USING: kernel math random sequences splitting strings unicode ;
IN: benchmark.unicode
: crazy-unicode-string ( -- string )
- 8 [ 8 0xffff random-integers ] replicate unwords ;
+ 8 [ 8 0xffff random-integers ] replicate join-words ;
: unicode-benchmark ( -- )
crazy-unicode-string 8 [