So I have an interview tomorrow and I was informed that they use Scheme at this location, so I brushed up on my skills… see if you can get the answer to this lock to return true.

(define (secretcode lst)
(if (and
(= (- (cadddr lst) (* (car lst) (+ (cadr lst) (caddr lst)))) 1)
(null? (cddddr lst)))
#t
#f))