Hello guys!
Im reading SICP, and im trying to
make a X out of numbers. But i get an infinite loop ples help me.
(define (E n)(if (= (modulo n 2) 0)
#t
#f))
(define (i x y z)(if x y z))
(define (D x)(display x))
(define (Å x)(+ x 1))
(define (Ö x)(- x 1))
(define (H p r n l m)
(i (!= r (Å n))
(begin (i (or (= l p)
(= m p))
(begin (D " ")
(D p)
(D " ")) (D " ")) (i (= n p)
(begin (D "\n\n\n")
(H 0 (Å r) n (Å l) (Ö m)))
(H (Å p) r n l m)))))
(define (x n)
(i (not (E n)) (begin (D " ") (H 1 1 n 1 n))))