-- 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))
}
distrib
>
Mandriva
>
2009.1
>
x86_64
>
media
>
contrib-release
>
by-pkgid
>
699d4bced1c23cb5710e4d1b23fbc9ae
>
files
>
32
