1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: math sequences kernel base64 ;
6 : base64-benchmark ( -- )
7 65535 <iota> [ 255 bitand ] "" map-as
8 20 [ >base64 base64> ] times
11 MAIN: base64-benchmark