4

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?

1
  • Olá user, não tenho certeza sobre o que você precisa, um inteiro é um inteiro indiferente de sua representação. Geralmente apenas queremos formatar o número (em uma string) em determinada base. Se for esse o caso, em Common Lisp basta usar a função format - (format nil "~B" 42) = "101010". Commented 30/05/2014 às 18:42

2 Respostas 2

4

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

1
  • 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
3

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.

Ideone

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .