-- Performance test; run with input /usr/dict/words, for example
{
module Main (main) where
}
%wrapper "basic"
words :-
$white+ ;
[A-Za-z0-9\'\-]+ { \s -> () }
{
main = do
s <- getContents
print (length (alexScanTokens s))
}
-- Performance test; run with input /usr/dict/words, for example
{
module Main (main) where
}
%wrapper "basic"
words :-
$white+ ;
[A-Za-z0-9\'\-]+ { \s -> () }
{
main = do
s <- getContents
print (length (alexScanTokens s))
}
::
::
::
