- 418 名前：デフォルトの名無しさん [2011/11/25(金) 07:52:40.94 ]
- (let ((myData '(1 2 3))
(myResult '()))
(do ((myList (rest myData)
(rest myList))
(myI (first myData)
(first myList)))
((null myI) myResult)
(do ((myRest (rest myData)
(rest myRest))
(myJ (first myData)
(first myRest)))
((null myJ))
(setf myResult `((,myI ,myJ)
,@myResult)))))
((3 3) (3 2) (3 1) (2 3) (2 2) (2 1) (1 3) (1 2) (1 1))
が理解できません。どなたか簡単に説明をお願いいたします。
