Advertisement
Guest User

Untitled

a guest
Oct 4th, 2018
207
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. (defun riemann-left-fast (a b step)
  2. (declare (type double-float a b step)
  3. (optimize (speed 3) (safety 0)))
  4. (do* ((n a (+ n step))
  5. (acc (sin n) (+ acc (sin n)))
  6. (end (- b step)))
  7. ((> n end) (the double-float acc))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement