[求助]初学lisp，焦头烂额，麻烦大家帮忙~~~

无痕

3. (defun slope-intercept (p1 p2 / x1 y1 x2 y2)
4.   (setq x1(car p1) y1(cadr p1)
5. x2(car p2) y2(cadr p2))
6.   (cond ((= x1 x2) (list nil x1))
7. ((= y1 y2) (list '0 y1))
8. ((= x2 0) (list (/ (- y2 y1) (- x2 x1)) y2))
9. (t
10.   (list (/ (- y2 y1) (- x2 x1))
11.         (/ (- (+ (* x1 y2) (* x2 y1)) (* x1 y1)) x2)
12.   )
13. )
14.   )
15. )
16. (slope-intercept '(1 1) '(0 0))----(1 0)
17. (slope-intercept '(1 0) '(0 0))----(0 0)
18. (slope-intercept '(0 1) '(0 0))----(nil 0)

(defun slope-intercept (p1 p2 / x1 y1 x2 y2)   (setq x1(car p1) y1(cadr p1) x2(car p2) y2(cadr p2))   (cond ((= x1 x2) (list nil x1)) ((= y1 y2) (list '0 y1)) ((= x2 0) (list (/ (- y2 y1) (- x2 x1)) y2)) (t   (list (/ (- y2 y1) (- x2 x1))         (/ (- (+ (* x1 y2) (* x2 y1)) (* x1 y1)) x2)   ) )   ) ) (slope-intercept '(1 1) '(0 0))----(1 0) (slope-intercept '(1 0) '(0 0))----(0 0) (slope-intercept '(0 1) '(0 0))----(nil 0)

liu22737

(defun slope-intercept (x1 y1 x2 y2)
(cond ((= x1 x2) (list "no-slope" x1))
      ((= y1 y2) (list 0 y1))
      ((= x2 0) (list (/ (- y2 y1) (- x2 x1)) y2))
      (t (list (/ (- y2 y1) (- x2 x1)) (/ (- (+ (* x1 y2) (* x2 y1)) (* x1 y1)) x2)))));;x2不能等"0"

(defun slope-intercept (p1 p2)
(cond ((= (car p1) (car p2)) (list "no-slope" (car p1)))
      ((= (cadr p1) (cadr p2)) (list 0 (cadr p1)))
      ((= (car p2) 0) (list (/ (- (cadr p2) (cadr p1)) (- (car p2) (car p1))) (cadr p2)))
      (t (list (/ (- (cadr p2) (cadr p1)) (- (car p2) (car p1)))
(/ (- (+ (* (car p1) (cadr p2)) (* (car p2) (cadr p1))) (* (car p1) (cadr p1))) (car p2));;(car p2)不能等"0"
))
))

dolaimi

感谢楼上的帮忙~~~~

十分感激~~~~

无痕

3. ;| ＃字游戏胜利判断部分
4. 设＃字游戏方格从0~8
5. 0 | 1 | 2
6. － －  －
7. 3 | 4 | 5
8. － －  －
9. 6 | 7 | 8
10. 用户点取到的位置为 a b c.
11. |;
12. (defun #win (a b c / key)
13.   (setq key (mapcar '(lambda(x)(rem x 3)) (list a b c)))
14.   (if (or (apply '< key)(apply '> key)(apply '= key))
15.     T
16.     nil)
17. )
18. >> T
19. (#win 0 1 2)
20. (#win 2 4 6)
21. (#win 2 5 8)
22. >>nil
23. (#win 4 6 3)
24. (#win 7 6 2)

;| ＃字游戏胜利判断部分 设＃字游戏方格从0~8 0 | 1 | 2 － －  － 3 | 4 | 5 － －  － 6 | 7 | 8 用户点取到的位置为 a b c. |; (defun #win (a b c / key)   (setq key (mapcar '(lambda(x)(rem x 3)) (list a b c)))   (if (or (apply '< key)(apply '> key)(apply '= key))     T     nil) ) >> T (#win 0 1 2) (#win 2 4 6) (#win 2 5 8) >>nil (#win 4 6 3) (#win 7 6 2)

dolaimi

能简述一下井字游戏函数的意思吗？看不懂哦~~

 

惭愧！！！！！！