Commit f9265eee authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Add package for iter:for

The iterate clause antik:for does not support "first..then" style
construction, nor "=", and so the iter:for clause must be used
instead. Problem reported by Xach on #quicklisp.
parent ec054407
;; Minimize or maximize the function in one variable.
;; Liam Healy 2011-01-14 12:18:15EST minimize.lisp
;; Time-stamp: <2011-04-02 16:57:34EDT one-dim.lisp>
;; Time-stamp: <2014-02-02 10:44:09EST one-dim.lisp>
;; Copyright 2011 Liam M. Healy
;; Copyright 2011, 2014 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -39,9 +39,9 @@
function derivative
(lambda (x) (values (funcall function x) (funcall derivative x)))
initial)))
(iter (for oldroot first initial then root)
(iter (iter:for oldroot first initial then root)
(gsl:iterate solver)
(for root = (gsl:solution solver))
(iter:for root = (gsl:solution solver))
(until (and
oldroot
(gsl:root-test-delta root oldroot absolute-error relative-error))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment