Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

[jxia31] Add benchmarks #15

Merged
merged 16 commits into from
Dec 5, 2024
Merged

[jxia31] Add benchmarks #15

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
16 commits
Select commit Hold shift + click to select a range
f304905
add file
jxia3 Dec 3, 2024
db67145
add file
jxia3 Dec 3, 2024
b177738
add file
jxia3 Dec 3, 2024
68dfb10
add file
jxia3 Dec 3, 2024
e261ebd
add file
jxia3 Dec 3, 2024
97bae96
empty commit to trigger ci
robertylewis Dec 3, 2024
d95fa70
empty commit to trigger ci
robertylewis Dec 3, 2024
b914fe1
empty commit to trigger ci
robertylewis Dec 3, 2024
e689d2f
empty commit to trigger ci
robertylewis Dec 3, 2024
c3e8c65
Merge branch 'main' into jxia3/main
robertylewis Dec 3, 2024
7116188
Merge branch 'main' into jxia3/main
robertylewis Dec 3, 2024
3152a6f
Merge branch 'main' into main
robertylewis Dec 3, 2024
b96bad5
remove error
jxia3 Dec 4, 2024
7bcdeb9
Create a
jxia3 Dec 4, 2024
388c7f8
Delete a
jxia3 Dec 4, 2024
9c03bc4
Merge branch 'main' into main
robertylewis Dec 5, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
310 changes: 310 additions & 0 deletions benchmarks/const_do.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,310 @@
(define (calc value)
(do
20
false
false
true
-29
false
(if (left (pair false false)) 34 false)
65
false
()
80
-2
96
56
12
true
-59
-40
(if (right (pair false false)) 37 77)
31
18
86
false
-36
true
90
-91
-95
(if (right (pair true true)) true false)
false
-41
(if (left (pair true true)) 38 40)
()
(if (left (pair true true)) true -91)
-42
()
()
-49
true
(if (right (pair true true)) true true)
24
18
true
77
(if (right (pair true true)) 23 40)
-91
true
-21
80
true
(if (right (pair false false)) true false)
-84
(if (right (pair false false)) 53 40)
true
true
-94
80
false
-67
21
true
false
false
-49
(if (left (pair true true)) 69 25)
(left (pair false 51))
38
true
()
(if (right (pair false false)) true 94)
()
()
true
()
true
-46
false
-86
()
70
-46
62
false
false
65
6
true
29
-9
()
-29
74
false
88
-26
true
-7
-90
()
true
true
-59
(if (right (pair true true)) 91 -58)
false
false
8
40
true
()
-85
10
38
-7
true
-8
-58
3
(if (left (pair true true)) 45 false)
14
true
4
true
()
75
(if (right (pair true true)) true false)
false
-4
-74
55
87
(if (right (pair false false)) () -60)
false
14
true
10
true
(if (left (pair true true)) 71 true)
true
7
false
94
87
true
51
true
true
(if (right (pair false false)) -1 -70)
(if (left (pair false false)) true 60)
true
()
36
24
-31
(if (right (pair true true)) -1 33)
()
25
49
-73
65
2
false
(if (left (pair false false)) false 37)
true
25
95
-19
70
-3
67
(if (right (pair false false)) -74 -62)
(if (right (pair true true)) -28 -23)
-8
false
true
32
false
-11
-55
()
()
98
3
49
-55
-54
-69
-37
77
28
20
-16
true
-62
()
false
40
false
(if (right (pair false false)) -42 99)
-82
-56
17
false
72
false
-35
54
98
-73
false
-39
85
(if (left (pair true true)) true true)
-29
54
true
(if (left (pair false false)) true false)
false
false
false
-15
-31
true
13
(if (right (pair true true)) -8 -38)
false
-73
(if (left (pair true true)) 13 ())
55
true
true
(if (right (pair false false)) 8 95)
false
84
9
89
34
true
-63
()
75
9
true
38
76
true
26
-63
21
(if (right (pair true true)) false -99)
-21
79
68
false
63
false
-38
69
false
true
false
false
()
(if (left (pair true true)) 12 -90)
()
-77
86
false
-34
-1
()
77
false
34
true
true
false
31
97
(right (pair -42 ()))
81
65
-57
true
false
-43
74
(if (left (pair false false)) true 37)
10
false
-8
-19
false
true
(if (left (pair true true)) 23 -37)
-3
true
50
-48
-64
-15
15
(left (pair value ()))))
(print
(+ (calc 1)
(+ (calc 2)
(+ (calc 3)
(+ (calc 4)
(+ (calc 5) (calc 6)))))))
2 changes: 2 additions & 0 deletions benchmarks/const_pairs.in
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
16
58
23 changes: 23 additions & 0 deletions benchmarks/const_pairs.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
(define (calc a b)
(+
(if (num? a)
(-
(+
(left (right (right (left (right (left (pair (pair -81 (pair (pair 95 (pair 58 (pair 45 b))) 26)) (pair (pair (pair (pair (pair 42 -79) 81) a) (pair (pair (pair 48 85) 83) (pair (pair -93 36) (pair 1 -30)))) (pair (pair a (pair (pair -99 45) (pair -52 -94))) (pair (pair 56 (pair -99 -63)) (pair b (pair 81 52))))))))))))
(left (right (left (right (left (right (pair a (pair (pair 5 (pair (pair -33 (pair -21 -32)) (pair (pair 35 30) (pair -62 -40)))) (pair (pair (pair (pair 64 45) (pair 8 b)) (pair (pair -81 52) (pair 16 -58))) (pair (pair (pair 67 39) (pair 83 -78)) (pair b 18))))))))))))
(+
(left (right (right (left (left (left (pair (pair (pair (pair -10 (pair -67 (pair a 41))) (pair 72 (pair 3 (pair 83 -81)))) (pair (pair (pair -93 (pair -11 -9)) (pair (pair 48 b) (pair -37 -68))) (pair 63 (pair (pair 97 -16) (pair 97 -66))))) (pair a (pair (pair (pair -50 (pair 50 24)) (pair (pair 80 -8) (pair -7 11))) -23)))))))))
(left (right (left (left (left (left (pair (pair (pair (pair (pair -98 (pair 12 -16)) -67) 56) (pair 43 (pair (pair 49 (pair 97 -1)) (pair (pair 20 30) (pair -73 -90))))) (pair (pair 72 65) (pair (pair (pair (pair -93 19) -31) -40) (pair (pair -93 (pair 0 -90)) (pair (pair -74 -38) (pair -32 -10))))))))))))))
(pair (pair (pair (pair (pair (pair (pair (pair (pair (pair 0 0) 0) 0) 0) 0) 0) 0) 0) 0) 0))
(if (num? b)
(-
(+
(left (right (right (right (left (left (pair (pair (pair 20 (pair 90 (pair 19 (pair -37 -20)))) (pair -76 (pair (pair 64 (pair 39 -15)) (pair (pair 70 -3) (pair -87 88))))) (pair -7 (pair (pair 70 (pair -73 (pair 68 -68))) (pair (pair -87 (pair -35 33)) (pair (pair -61 68) (pair -43 -19))))))))))))
(left (right (right (left (left (right (pair a (pair (pair (pair 19 (pair -78 (pair 10 82))) (pair (pair (pair 68 -42) (pair 60 11)) (pair 39 (pair -34 70)))) (pair (pair -35 (pair -22 (pair 57 -75))) (pair (pair (pair 81 -84) (pair -55 a)) (pair (pair 34 b) (pair -26 32)))))))))))))
(+
(left (left (left (left (right (left (pair (pair 61 (pair (pair (pair (pair -9 95) -31) (pair (pair -38 -29) (pair -48 -44))) (pair -50 56))) (pair (pair (pair 62 36) a) (pair (pair (pair 26 (pair a -23)) (pair (pair 28 -98) (pair 12 82))) (pair (pair (pair -87 -34) (pair 29 73)) (pair (pair -32 19) (pair 47 73))))))))))))
(left (left (right (left (left (right (pair -16 (pair (pair (pair (pair 29 93) (pair (pair -63 -87) (pair -47 77))) (pair (pair (pair -55 45) (pair -45 -37)) (pair (pair 20 19) (pair 95 -69)))) (pair (pair (pair 1 (pair 3 -20)) 87) (pair 0 (pair (pair -86 43) (pair -53 44))))))))))))))
(pair (pair (pair (pair (pair (pair (pair (pair (pair (pair 0 0) 0) 0) 0) 0) 0) 0) 0) 0) 0))))
(let ((a (read-num)))
(let ((b (read-num)))
(print (calc a b))))
Loading
Loading