Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Mon Aug 4 12:28:37 2003 UTC | revision 1.4 by pfdietz, Tue Aug 5 02:30:18 2003 UTC | |
---|---|---|
# | Line 117 | Line 117 |
117 | unless (and (>= m x) (>= m y) | unless (and (>= m x) (>= m y) |
118 | (or (= m x) (= m y))) | (or (= m x) (= m y))) |
119 | collect (list x y m)))) | collect (list x y m)))) |
120 | ||
121 | (defun min.2-fn () | |
122 | (loop for x in *reals* | |
123 | nconc | |
124 | (loop for y in *reals* | |
125 | for m = (min x y) | |
126 | unless (and (<= m x) (<= m y) | |
127 | (or (= m x) (= m y))) | |
128 | collect (list x y m)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |