Submission #1533440

---

Source Code Expand

(defparameter *n* (read))

(defun count-2-div-inner (n cnt)
  (let ((n%2 (mod n 2)))
    (if (not (= n%2 0))
        cnt
        (count-2-div-inner (/ n 2) (1+ cnt)))))

(defun count-2-div (n)
  (count-2-div-inner n 0))

(defun max-position (lst)
  (let ((max-value (apply #'max lst)))
    (position-if (lambda (x)
		   (= x max-value)) lst)))

(format t "~A~%"
        (1+ (max-position
             (mapcar #'count-2-div (loop for i from 1 to *n* collect i)))))

Submission Info

Judge Result