Commit c6f06028 authored by simonmar's avatar simonmar

[project @ 2005-04-28 10:36:38 by simonmar]

mode=slow
parent 1e1e959c
......@@ -37,10 +37,13 @@ David
module Main(main) where
import Ix -- 1.3
import System.Environment
main = putStr res
main = do
(n:_) <- getArgs
putStr (res (read n))
res = concat (map clauses (take 7 (repeat "(a = a = a) = (a = a = a) = (a = a = a)")))
res n = concat (map clauses (take n (repeat "(a = a = a) = (a = a = a) = (a = a = a)")))
data StackFrame = Ast Formula | Lex Char
......
......@@ -3,3 +3,6 @@ include $(TOP)/mk/boilerplate.mk
-include opts.mk
include $(TOP)/mk/target.mk
FAST_OPTS = 7
NORM_OPTS = 7
SLOW_OPTS = 100
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment