Submission #1779904

---

Source Code Expand

(define (number-of-digits n)
  (string-length (number->string n)))

(define (main args)
  (let ([n (read)])
    (print (let loop ([a (inexact->exact (floor (sqrt n)))])
             (cond [(= a 1) (number-of-digits n)]
                   [(zero? (remainder n a)) (number-of-digits (quotient n a))]
                   [else (loop (- a 1))]
                 ))))
  0)

Submission Info

Judge Result