Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
18 lines (13 sloc) 0.233 kB
-- 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))
}
Jump to Line
Something went wrong with that request. Please try again.