2008-08-24 04:59:22 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: math sequences kernel base64 ;
|
|
|
|
|
IN: benchmark.base64
|
|
|
|
|
|
|
|
|
|
: base64-benchmark ( -- )
|
2010-01-14 13:08:22 -05:00
|
|
|
65535 iota [ 255 bitand ] "" map-as
|
2009-04-17 18:55:01 -04:00
|
|
|
20 [ >base64 base64> ] times
|
2008-08-24 04:59:22 -04:00
|
|
|
drop ;
|
|
|
|
|
|
|
|
|
|
MAIN: base64-benchmark
|
