Scheme

[asdfman]

Mahlzeit.

Ich las heute von der Collatz conjecture, und dachte, das ließe sich ja in Scheme schnell hin bauen.
Ich habe ja mein SICP gelesen, also dachte ich, das wäre eigentlich kein Problem.

Auftritt Source:

(define (collatz n)
  ((display n)
   (newline)
   (if (> n 1)
       (if (odd? n) (collatz (+ (* 3 n) 1))
           (collatz (/ n 2)))
       1)))

Das spuckt mir zwar die Zahlen aus, aber sobald 1 erreicht ist, gibts einen Fehler.

€: "Einen Fehler"? Es gibt diesen Fehler:

procedure application: expected procedure, given: #<void>; arguments were: #<void> 1

Was nun?

 

[asdfman]

Falls es einen interessiert: Hab den Fehler gefunden. Lösung:

(define collatz
  (lambda (n)
    (display n)
    (newline)
    (if (> n 1)
        (if (odd? n) (collatz (+ (* 3 n) 1))
            (collatz (/ n 2)))
        1)))