Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun binary_len_(N)
- (cond
- ((= N 0) 1) ;if N is 0 return 1
- ((= N 1) 1) ;else if N is 1 return 1
- (t (+ (binary_len_(floor(/ N 2))) 1))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement