Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
33f11724
by Raymond Toy at 2023-08-12T07:34:55-07:00
1 changed file:
Changes:
1 | 1 | ;;; math.lisp -- various numerical operations
|
2 | 2 | ;;
|
3 | -;; Time-stamp: <2004-01-05 emarsden>
|
|
3 | +;; Time-stamp: <2023-08-12 07:34:28 toy>
|
|
4 | 4 | ;;
|
5 | 5 | ;; some basic mathematical benchmarks
|
6 | 6 | |
... | ... | @@ -56,7 +56,7 @@ |
56 | 56 | ;; calculate the "level" of a point in the Mandebrot Set, which is the
|
57 | 57 | ;; number of iterations taken to escape to "infinity" (points that
|
58 | 58 | ;; don't escape are included in the Mandelbrot Set). This version is
|
59 | -;; intended to test performance when programming in nave math-style.
|
|
59 | +;; intended to test performance when programming in naive math-style.
|
|
60 | 60 | (defun mset-level/complex (c)
|
61 | 61 | (declare (type complex c))
|
62 | 62 | (loop :for z = #c(0 0) :then (+ (* z z) c)
|