extra/benchmark/lexer/lexer.factor

   1 ! Copyright (C) 2014 John Benediktsson
   2 ! See https://factorcode.org/license.txt for BSD license
   3
   4 USING: io.encodings.ascii io.files kernel lexer math ;
   5
   6 IN: benchmark.lexer
   7
   8 : lexer-benchmark ( -- )
   9     10,000 "vocab:math/math.factor" ascii file-lines [
  10         <lexer> [ parse-token ] curry loop
  11     ] curry times ;
  12
  13 MAIN: lexer-benchmark