- プログラミングのお題スレ Part4
837 ：デフォルトの名無しさん[sage]：2014/08/31(日) 10:43:44.68 ID:Sej1+9Oo - >>812 Emacs Lisp
(require 'cl-lib)
cl-lib
(cl-defun f (x y &optional (d 365))
(let ((n 0))
(cl-dotimes (c y)
(let ((v (make-vector d 0)))
(cl-loop for i from 0 below x do (let ((r (cl-random d))) (cl-incf (aref v r))))
(when (= (length (cl-remove-if #'(lambda (x) (/= x 2)) v)) 2) (cl-incf n))))
n))
f
(f 40 30000 366)
9044
|
|