clCalculator에는 list-ref도 없고 nth-cdr도 없으므로 list-ref는 이렇게 구현함
(list-ref list n) =>
(cond ((not list) nil)
((eq n 0) (car list))
(t (list-ref (cdr list) (dec n))))
성능따위 길바닥에 내던진 시크함 ㅗㅜㅑ
이걸로 틱택토 미니맥스 구현하면 한수 두는데 얼마나 걸릴까...
(list-ref list n) =>
(cond ((not list) nil)
((eq n 0) (car list))
(t (list-ref (cdr list) (dec n))))
성능따위 길바닥에 내던진 시크함 ㅗㅜㅑ
이걸로 틱택토 미니맥스 구현하면 한수 두는데 얼마나 걸릴까...
댓글 0