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