Advertisement
Guest User

Untitled

a guest
Oct 4th, 2018
182
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.30 KB | None | 0 0
  1. (defun riemann-left-fast (a b step)
  2.   (declare (type double-float a b step)
  3.            (optimize (speed 3)
  4.                      (safety 0)))
  5.   (let ((acc 0.0d0))
  6.     (declare (type double-float acc))
  7.     (loop for n double-float from a to (- b step) by step do
  8.       (incf acc n))
  9.     (* step acc)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement