Commit | Line | Data |
---|---|---|
59047043 NJ |
1 | |
2 | (define-module (benchmarks if) | |
3 | :use-module (benchmark-suite lib)) | |
4 | ||
02378956 DH |
5 | (with-benchmark-prefix "if-<expr>-then-else" |
6 | ||
7 | (benchmark "executing then" 330000 | |
8 | (if (quote #t) #t #f)) | |
9 | ||
10 | (benchmark "executing else" 330000 | |
11 | (if (quote #f) #t #f))) | |
12 | ||
13 | (with-benchmark-prefix "if-<expr>-then" | |
14 | ||
15 | (benchmark "executing then" 330000 | |
16 | (if (quote #t) #t)) | |
17 | ||
18 | (benchmark "executing else" 330000 | |
19 | (if (quote #f) #t))) | |
20 | ||
21 | (with-benchmark-prefix "if-<iloc>-then-else" | |
22 | ||
23 | (let ((x #t)) | |
24 | (benchmark "executing then" 330000 | |
25 | (if x #t #f))) | |
26 | ||
27 | (let ((x #f)) | |
28 | (benchmark "executing else" 330000 | |
29 | (if x #t #f)))) | |
30 | ||
31 | (with-benchmark-prefix "if-<iloc>-then" | |
32 | ||
33 | (let ((x #t)) | |
34 | (benchmark "executing then" 330000 | |
35 | (if x #t))) | |
36 | ||
37 | (let ((x #f)) | |
38 | (benchmark "executing else" 330000 | |
39 | (if x #t)))) | |
40 | ||
41 | (with-benchmark-prefix "if-<bool>-then-else" | |
42 | ||
43 | (benchmark "executing then" 330000 | |
44 | (if #t #t #f)) | |
45 | ||
46 | (benchmark "executing else" 330000 | |
47 | (if #f #t #f))) | |
48 | ||
49 | (with-benchmark-prefix "if-<bool>-then" | |
50 | ||
51 | (benchmark "executing then" 330000 | |
52 | (if #t #t)) | |
53 | ||
54 | (benchmark "executing else" 330000 | |
55 | (if #f #t))) |