Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (15 sloc) 0.317 kb
(defun fac (n)
(let ((p 1))
(dotimes (i n p)
(setf p (* p (1+ i))))))
(defun selects (n r)
(/ (fac n)
(* (fac r) (fac (- n r)))))
(defun pro53 ()
(let ((cnt 0))
(loop
:for i from 1 upto 100
:do (dotimes (j i)
(if (> (selects i (1+ j)) 1000000)
(incf cnt))))
cnt))
Jump to Line
Something went wrong with that request. Please try again.