express-1.0.14: bench/compare.hs

-- ord.hs -- prints results of the Ord Expr's instance
--
-- Copyright (c) 2019-2024 Rudy Matela.
-- Distributed under the 3-Clause BSD licence (see the file LICENSE).
import Test
import System.Environment (getArgs)

main :: IO ()
main  =  do
  as <- getArgs
  let n = case as of
          [] -> 5040
          (n:_) -> read n
  putStrLn . unlines . map showCompare $ take n (list :: [(Expr,Expr)])
  where
  showCompare (e1,e2)  =  concat
    [ show e1
    , " `compare` "
    , show e2
    , "  =  "
    , show $ e1 `compare` e2
    ]