テスト
Posted feedbacks - Common Lisp
テスト出す
1 2 3 4 5 | (defun range (n m)
(do ((i n (1+ i))
(ans nil))
((> i m) (reverse ans))
(setq ans (cons i ans))))
|
テスト
テスト出す
1 2 3 4 5 | (defun range (n m)
(do ((i n (1+ i))
(ans nil))
((> i m) (reverse ans))
(setq ans (cons i ans))))
|
にしお
#3357()
Rating0/0=0.00
[ reply ]