16 lines
423 B
Haskell
16 lines
423 B
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
import Protolude
|
|
|
|
import Criterion
|
|
import Criterion.Main
|
|
|
|
import Lish.Parser (parseCmd)
|
|
|
|
main :: IO ()
|
|
main = defaultMain
|
|
[bench "parseCmd (foo \"bar\")"
|
|
(whnf parseCmd "(foo \"bar\")")
|
|
, bench "parseCmd (f (f ..28x...))"
|
|
(whnf parseCmd "(f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f ))))))))))))))))))))))))")
|
|
]
|