From 7a3db33e8f2b026e84a16b1876914405336c7ab2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 11 Nov 2017 18:15:42 -0500
Subject: [PATCH] Removing old files

---
 opt-test.data |  3 ---
 opt-test.scm  | 45 ---------------------------------------------
 2 files changed, 48 deletions(-)
 delete mode 100644 opt-test.data
 delete mode 100644 opt-test.scm

diff --git a/opt-test.data b/opt-test.data
deleted file mode 100644
index 01e79c32..00000000
--- a/opt-test.data
+++ /dev/null
@@ -1,3 +0,0 @@
-1
-2
-3
diff --git a/opt-test.scm b/opt-test.scm
deleted file mode 100644
index d98394a1..00000000
--- a/opt-test.scm
+++ /dev/null
@@ -1,45 +0,0 @@
-;; Testing the next set of optimizations
-;; To run: ./opt-test < opt-test.data
-;;
-;; Timings: T430
-;; Baseline - 2.511
-;; Dyadic - 1.409
-;;
-(import (scheme base)
-        (scheme write)
-        (scheme read))
-(let ((x (read))
-      (y (read))
-      (z (read))
-      (iterations 10000000)
-      (sum 0))
-  (do ((i iterations (- i 1)))
-      ((zero? i))
-      (set! sum (+ sum sum (* x y z)))
-      (set! sum (- sum sum (* x y z))))
-  (write sum))
-
-;;; Take an expression containing a single function call and break it up
-;;; into many calls of 2 arguments each.
-;(define (->dyadic expr)
-;  (cond
-;    ((< (length expr) 4)
-;     expr)
-;    (else
-;     (let ((fnc (car expr)))
-;       (foldl
-;         (lambda (x acc)
-;           (list fnc acc x))
-;         `(,fnc ,(cadr expr) ,(caddr expr))
-;         (cdddr expr))))))
-;    
-;(write (->dyadic '(+ 1)))
-;(write (->dyadic '(+ 1 2)))
-;(write (->dyadic '(+ 1 2 3)))
-;(write (->dyadic '(+ 1 2 3 4)))
-;;(write
-;;  (foldl
-;;    (lambda (x acc)
-;;     (list 'Cyc-fast-plus acc x))
-;;    '(Cyc-fast-plus 1 2)
-;;    '(3 4 5)))