To binary

; тук i означава брой извършени деления на 2 на оригиналното число
; базовият случай, когато числото е 0 е straightforward
; иначе, взимаме текущия остатък и го умножаваме по 10 на степен текущия брой извършени деления
; например, ако започнем с 5, ще получим:

(define (to-binary-iter number i)
  (if (= number 0)
      0
      (+ (* (remainder number 2) (expt 10 i))
         (to-binary-iter (quotient number 2) (+ i 1)))
  )
)

(define (to-binary number)
  (to-binary-iter number 0))