extra/benchmark/base64/base64.factor

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