From 3c7b5347483cef15b11f7cf8f7195a4ad076d1f5 Mon Sep 17 00:00:00 2001 From: shamelsameer Date: Tue, 3 Dec 2024 16:09:20 -0600 Subject: [PATCH] feat: three benchmarks --- benchmarks/ssameer1-const-prop-let.lisp | 1 + benchmarks/ssameer1-const-prop.lisp | 2 ++ benchmarks/ssameer1-inlining.lisp | 3 +++ 3 files changed, 6 insertions(+) create mode 100644 benchmarks/ssameer1-const-prop-let.lisp create mode 100644 benchmarks/ssameer1-const-prop.lisp create mode 100644 benchmarks/ssameer1-inlining.lisp diff --git a/benchmarks/ssameer1-const-prop-let.lisp b/benchmarks/ssameer1-const-prop-let.lisp new file mode 100644 index 0000000..e61033c --- /dev/null +++ b/benchmarks/ssameer1-const-prop-let.lisp @@ -0,0 +1 @@ +(let (x) ((+ (+ (+ x x) (+ x x)) (+ x x)))) diff --git a/benchmarks/ssameer1-const-prop.lisp b/benchmarks/ssameer1-const-prop.lisp new file mode 100644 index 0000000..a0e71be --- /dev/null +++ b/benchmarks/ssameer1-const-prop.lisp @@ -0,0 +1,2 @@ +(add1 (sub1 (- (+ (add1 (if (< 1 2) 1 (add1 (sub1 0)))) (sub1 (add1 10))) (add1 (sub1 (+ 1 (add1 2))))))) + diff --git a/benchmarks/ssameer1-inlining.lisp b/benchmarks/ssameer1-inlining.lisp new file mode 100644 index 0000000..5616f98 --- /dev/null +++ b/benchmarks/ssameer1-inlining.lisp @@ -0,0 +1,3 @@ +(define (f x) (+ (+ x (+ x x)) x)) + +(- (f (f (f (f (f (f (f (f 2)))))))) (f (f (f (f (f (f (f (f 1)))))))))