cgit.sxemacs.org Git - sxemacs/blob - modules/cl/cl-loop-profs.el

   1 ;;;  cl-profs.el -- Benchmarks for CL
   2 ;; Copyright (C) 2006, 2007 Sebastian Freundt
   3 ;;
   4 ;; Author: Sebastian Freundt <hroptatyr@sxemacs.org>
   5 ;; Keywords: tests
   6 ;;
   7 ;; This file is part of SXEmacs.
   8 ;;
   9 ;; Redistribution and use in source and binary forms, with or without
  10 ;; modification, are permitted provided that the following conditions
  11 ;; are met:
  12 ;;
  13 ;; 1. Redistributions of source code must retain the above copyright
  14 ;;    notice, this list of conditions and the following disclaimer.
  15 ;;
  16 ;; 2. Redistributions in binary form must reproduce the above copyright
  17 ;;    notice, this list of conditions and the following disclaimer in the
  18 ;;    documentation and/or other materials provided with the distribution.
  19 ;;
  20 ;; 3. Neither the name of the author nor the names of any contributors
  21 ;;    may be used to endorse or promote products derived from this
  22 ;;    software without specific prior written permission.
  23 ;;
  24 ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
  25 ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  26 ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  27 ;; DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  29 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  30 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  31 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  32 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  33 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
  34 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  35 ;;
  36 ;;; Synched up with: Not in FSF.
  37 ;;
  38 ;;; Commentary:
  39 ;; See benchmark.el for instructions on how to run these tests.
  40
  41 (condition-case nil
  42     (require 'benchmark)
  43   (file-error
  44    (push "." load-path)
  45    (when (and (boundp 'load-file-name) (stringp load-file-name))
  46      (push (expand-file-name "../tests/benchmark"
  47                              (file-name-directory load-file-name))
  48            load-path))
  49    (require 'benchmark)))
  50
  51 (require 'cl-loop)
  52
  53
  54 (defun cl:loop-for (N)
  55   "C for-arith clause"
  56   (cl:loop for i below N))
  57
  58 (defun cl:loop-count (N)
  59   "C count clause"
  60   (cl:loop for i below N
  61            count (primep i)))
  62
  63 (defun loop-for (N)
  64   "lisp for-arith clause"
  65   (loop for i below N))
  66
  67 (defun loop-count (N)
  68   "lisp for-arith"
  69   (loop for i below N
  70     count (primep i)))
  71
  72
  73 ;; now the actual test suites
  74 (bm-estimate-time
  75  (list
  76   :test-funv [cl:loop-for cl:loop-count]
  77   :test-range '(10 . 1000000)
  78   :plot-file "benchmark-C-loop.plot"))
  79
  80 (bm-estimate-time
  81  (list
  82   :test-funv [loop-for loop-count]
  83   :test-range '(10 . 1000000)
  84   :plot-file "benchmark-lisp-loop.plot"))
  85
  86 ;; cl-loop-profs.el ends here