Рекурсия (разряд двоичного предстовления числа N)

[Kloun]

Очень прошу помочь, я почти не бум бум в рекурсии
определить колличество разрядов вдоичного представления числа N, представленого в десятичной системе счесления.

[netrino]

(defun count-bits (n) 
  (labels ((count-bits (n acc)
	     (if (< n 2)
		 acc
		 (count-bits (truncate n 2) (1+ acc)))))
    (count-bits n 1)))

[MyLastHit]

netrino, а это на каком?

[netrino]

Сообщение от MyLastHit

netrino, а это на каком?

На common lisp

[MyLastHit]

ТС оценит).....

[netrino]

Зато в следующий раз точно будет язык указывать)

[ololo-schoolboy]

Вот на c++:

#include<iostream>

using namespace std;

int count(int n, int dig)
{
	if(n&0x01<<dig)
		return dig+1;
	else 
		return count(n, --dig);
}

int main()
{
	int n=123456789;
	if(n!=0)
		cout<<count(n, 31);
	cin.get();
	return 0;
}