早教吧 育儿知识 作业答案 考试题库 百科 知识分享

commonLISP输入:(q-1'(adfgg"."ddfegfg"."))输出:((1adfgg".")(2ddfegfg"."))求q-1(L)的方程我的问题似乎不清楚有点误导了大家那就补充一下:输入:(q-1'(adfgg"."d

题目详情
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
然后大家的答案要有解释(解决问题的具体思路),
▼优质解答
答案和解析
(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 li...