An Easy Problem/정진경

(define (mod a b)
  (if (< a b)
      a
      (mod(- a b) b)
      )
  )

(define (quot a b)
  (/ (- a (mod a b)) b)
  )

(define (BitCount n)
  (if (< n 1)
      0
      (+ (BitCount (quot n 2)) (mod n 2))
      )
  )

(define (SearchBitN n m)
  (if (= n (BitCount m))
      m
      (SearchBitN n (+ m 1))
      )
  )

(define (AnEasyProblem n)
  (SearchBitN (BitCount n) (+ n 1))
  )

• 첫번째 제출에 상콤하게 Accept! 나름 열심히 줄여본다고 코드를 줄여봤지만. 역시 갈 길이 머네요... -정진경
  
  • 자네, 만드는데 걸린 시간도 써보는게 어떻겠나.? -김태진
    
    • 담문제부턴 기억나면 체크해두도록 하지... 이건 기억이 안난다 아마 문제해석부터 처음 Accept까지 30분 조금 안됐을거임. 코드 줄이는건 짬짬이 해서 잘 모르겠당 -정진경
      
  • joojis이(가) Kesarr을(를) 이겼다!
    
    • 앗~ 이건 뭔가요?ㅋㅋㅋ - 변형진
      
      • http://poj.org/problemstatus?problem_id=2453&language=1&orderby=clen - joojis는 112B, kesarr는 114B에요 ㅎㅎ -김태진