guile18/benchmark-suite/benchmarks/if.bm

   1 (with-benchmark-prefix "if-<expr>-then-else"
   2
   3   (benchmark "executing then" 330000
   4     (if (quote #t) #t #f))
   5
   6   (benchmark "executing else" 330000
   7     (if (quote #f) #t #f)))
   8
   9 (with-benchmark-prefix "if-<expr>-then"
  10
  11   (benchmark "executing then" 330000
  12     (if (quote #t) #t))
  13
  14   (benchmark "executing else" 330000
  15     (if (quote #f) #t)))
  16
  17 (with-benchmark-prefix "if-<iloc>-then-else"
  18
  19   (let ((x #t))
  20     (benchmark "executing then" 330000
  21       (if x #t #f)))
  22
  23   (let ((x #f))
  24     (benchmark "executing else" 330000
  25       (if x #t #f))))
  26
  27 (with-benchmark-prefix "if-<iloc>-then"
  28
  29   (let ((x #t))
  30     (benchmark "executing then" 330000
  31       (if x #t)))
  32
  33   (let ((x #f))
  34     (benchmark "executing else" 330000
  35       (if x #t))))
  36
  37 (with-benchmark-prefix "if-<bool>-then-else"
  38
  39   (benchmark "executing then" 330000
  40     (if #t #t #f))
  41
  42   (benchmark "executing else" 330000
  43     (if #f #t #f)))
  44
  45 (with-benchmark-prefix "if-<bool>-then"
  46
  47   (benchmark "executing then" 330000
  48     (if #t #t))
  49
  50   (benchmark "executing else" 330000
  51     (if #f #t)))