Levando em conta que é preciso dividir o número por 2 até ele ser igual a 1, e reorganizar os restos, como poderia ser feito esta conversão em LISP?
2 Respostas
Supondo que seja um exercício que precise seguir o raciocínio do enunciado, seguem dois exemplos retirado desta página:
(defun dtb (x &optional (callback #'princ))
(unless (= x 0)
(dtb (floor x 2) callback)
(funcall callback (mod x 2))))
e
(defun dtb-collect (x)
(declare (type fixnum x))
(do ((x x (floor x 2))
(list nil (cons (mod x 2) list)))
((= x 0) list)))
Vide comentário do @AnthonyAccioly se não precisar do loop conforme descrito no corpo da pergunta:
"Se for esse o caso, em Common Lisp basta usar a função format": (
format t "~B~%" 42
) = "101010"
Link demonstrativo, também gentilmente cedido pelo Anthony: http://ideone.com/WWg18G
-
Oi Bacco, deixa aí, o comentário é auto-contido hehehe. Só um exemplo para complementar a ideia link para o Ideone. Commented 30/05/2014 às 19:16
Uma maneira para converter um número em binário é estar utilizando a função format(como citado no comentário do AnthonyAccioly) que é comparável ao printf do C.
(format t "~{~&~B~}" '(1 2 10 42 11)) ; 1 2 10 42 11 são os números a converter
O ~B
é parecido com ~D
, mas imprime em base binária (base 2) em vez de decimal.
(format nil "~B" 42) = "101010"
.