いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

481:デフォルトの名無しさん
09/07/16 11:50:34
>>473

(defun comb (lim)
(do ((n1 1 (1+ n1)) (c 0))
((> n1 lim))
(do ((n2 (1+ n1) (1+ n2)))
((> n2 lim))
(setf c (1+ c))
(format t "no.~5A ~A - ~A~%" c n1 n2))))

;20チームだと↓

(comb 20)

次ページ

続きを表示

1を表示