Question

common LISP 断句问题

输入：（q-1 '( a d f g g "." d d f e gf g ".")）
输出： （（1 a d f g g "."）（2 d d f e gf g "."））
求q-1 (L) 的方程
我的问题似乎不清楚 有点误导了大家 那就补充一下：
输入：（q-1 '( a d f g g "." d d f e gf g ".")）；；这里的输入 其实是一段话，可能会出现n个句子
输出： （（1 a d f g g "."）（2 d d f e gf g "."）；；这里的输出也是由输入决定的 如果有n个句子 就会断成n个list
然后大家的答案要有解释（解决问题的具体思路）， 会加分的

Answer 1

;;上一次发的有点小问题,已改正
(defun q-1(L / i list1 list2)
(setq i 0 list1 '() list2 '())
(setq L '( a d f g g "." d d f e g f g "."))
(foreach n L
(setq list1 (append list1 (list n)))
(if (eq n ".")
(progn
(setq i (+ 1 i))
(setq list2 (append list2 (list(append (list i)list1))))
(setq list1 '())
);progn
);if
);foreach
(princ list2)
);defun

Answer 2

(defun q-1(L / i list1 list2)
(setq i 0 list1 '() list2 '())
;(setq L '( a d f g g "." d d f e g f g "."))
(foreach n q-1
(setq list1 (append list1 (list n)))
(if (eq n ".")
(progn
(setq i (+ 1 i))
(setq list2 (append list2 (list(append (list i)list1))))
(setq list1 '())
);progn
);if
);foreach
(princ list2)
);defun

Answer 3

;;上一次发的有点小问题,已改正
(defun q-1(L / i list1 list2)
(setq i 0 list1 '() list2 '())
(setq L '( a d f g g "." d d f e g f g "."))
(foreach n L
(setq list1 (append list1 (list n)))
(if (eq n ".") defun q-1(L / i list1 list2)
(setq i 0 list1 '() list2 '())
;(setq L '( a d f
(progn
(setq i (+ 1 i))
(setq list2 (append list2 (list(append (list i)list1))))
(setq list1 '())
);progn
);if
);foreach
(princ list2)
);defun