From 594ecf396cad8a38aac168062249ab3361c5b558 Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Sun, 17 Dec 2017 22:30:06 +0100 Subject: Move old things out of the way --- test.hs | 16 ---------------- 1 file changed, 16 deletions(-) delete mode 100644 test.hs (limited to 'test.hs') diff --git a/test.hs b/test.hs deleted file mode 100644 index a763524..0000000 --- a/test.hs +++ /dev/null @@ -1,16 +0,0 @@ -import System.Exit - -import Compiler -import Optimiser -import Parser -import VM - -main :: IO () -main = do - -- let Right p = parseProgram "(print (lambda (n) ((lambda (helper) (if (<= n 0) 0 (if (<= n 2) 1 (helper helper 1 1 (- n 2))))) (lambda (recur a b n) (if (<= n 0) b (recur recur b (+ a b) (- n 1)))))))" - -- let Right p = parseProgram "(print ((lambda (n) ((lambda (helper) (if (<= n 0) 0 (if (<= n 2) 1 (helper helper 1 1 (- n 2))))) (lambda (recur a b n) (if (<= n 0) b (recur recur b (+ a b) (- n 1)))))) 6))" - let Right p = parseProgram "(do (define f (lambda (n) (+ n 1))) (print (f 10)))" - prog <- either die return (compileProgram p) - let opt = optimise prog - print opt - vmRun opt -- cgit v1.2.3-54-g00ecf