PasteRack.org
Paste # 71950
2018-02-11 19:33:03

Fork as a new paste.

Paste viewed 214 times.


Embed:

test

  1. #lang racket
  2.  
  3. (define (sum1 xs)
  4.  
  5.             (if (null? xs)
  6.  
  7.                 0
  8.  
  9.                 (if (number? (car xs))
  10.  
  11.                     (+ (car xs) (sum1 (cdr xs)))
  12.  
  13.                     (+ (sum1 (car xs)) (sum1 (cdr xs))))))
  14.  
  15. (sum1 (list 1 2 3 (list 1) (list #t) (list 5 6 7) "foo"))

=>

car: contract violation

  expected: pair?

  given: #t