(define (secretcode lst)
(if (and
(= (- (cadddr lst) (* (car lst) (+ (cadr lst) (caddr lst)))) 1)
(null? (cddddr lst)))
#t
#f))
Comments RSS TrackBack Identifier URI
Leave a comment
(define (secretcode lst)
(if (and
(= (- (cadddr lst) (* (car lst) (+ (cadr lst) (caddr lst)))) 1)
(null? (cddddr lst)))
#t
#f))
Comments RSS TrackBack Identifier URI
Leave a comment
2 Comments