Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Fri Aug 22 02:12:55 2003 UTC | revision 1.2 by pfdietz, Mon Aug 25 12:31:29 2003 UTC | |
---|---|---|
# | Line 19 | Line 19 |
19 | (integerp r) | (integerp r) |
20 | (<= (- (/ d 2)) r (/ d 2)) | (<= (- (/ d 2)) r (/ d 2)) |
21 | (or (/= (abs r) (/ d 2)) | (or (/= (abs r) (/ d 2)) |
22 | (evenp (coerce q 'integer)))) | (evenp (floor q)))) |
23 | collect (list n d q r n2))) | collect (list n d q r n2))) |
24 | ||
25 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |