回答編集履歴
1
インデント修正、タブ文字が含まれてました。
answer
CHANGED
|
@@ -11,11 +11,11 @@
|
|
|
11
11
|
(setq be (car arg))
|
|
12
12
|
(setq arg (cdr arg))
|
|
13
13
|
(cond ((or (equal 'am be)
|
|
14
|
-
|
|
14
|
+
(equal 'is be)
|
|
15
|
-
|
|
15
|
+
(equal 'are be)
|
|
16
|
-
|
|
16
|
+
(equal 'was be)
|
|
17
|
-
|
|
17
|
+
(equal 'were be))
|
|
18
|
-
|
|
18
|
+
(setq arg (cons be (append (reverse a) arg)))))
|
|
19
19
|
(setq a (cons be a)))))
|
|
20
20
|
|
|
21
21
|
(print (question '(this is a simple lisp function)))
|