BASICの宿題はお前にまかせた

BASICの宿題はお前にまかせた at TECH

375:デフォルトの名無しさん
09/07/27 01:24:57
>>374
プログラムでいうと ↓ な具合です

(defun countm (l)
(let ((n (car (remove (car (sort l #'<)) l))))
(length (remove-if #'(lambda (x) (/= x n)) l))))

仮に

>(defvar d '(3 9 8 0 8 0 6 6 8 2 6 6 1 4 0 9 1 5 1 8 9 7 1 8 8 1 5 5 8 5))
>(countm d)
とすると

5
>
となります。

次ページ

続きを表示

1を表示