#lang racket
(define plus-minus (lambda (L sum target)
                     (cond
                      ((null? L) (= sum target))
                      ((plus-minus (cdr L) (+ sum (car L)) (car L)) #t)
                      ((plus-minus (cdr L) (- sum (car L)) (car L)) #t)
                      (else #f))))