12/02/11 07:42:22.35
>>187
間違っていたんだよもん. こっちが正解だよもん.
(defun だよもん (だよもん &optional (だよだよもん '(だよもん！)))
(if (= だよもん 0)
(if (eq (car だよだよもん) 'だよもん！)
(cons 'もん だよだよもん)
だよだよもん)
(if (= (logand だよもん 1) 0)
(だよもん (ash だよもん -1) (cons 'もん だよだよもん))
(だよもん (ash だよもん -1) (cons 'だよ だよだよもん)))))