PasteRack.org
Paste # 98154
2016-06-28 17:35:20

Fork as a new paste.

Paste viewed 41 times.


Embed:

  1. #lang racket
  2. (define(z l)(cons(if(>(car l)(second l))
  3.                     (list (car l))(car l))(if(<(car l)(cdar l))(list (z l))(z l))))
  4.  (display (z (list 7 3 1 -8 4 8 2 -9 2 8)))

=>

cdar: contract violation

  expected: (cons/c pair? any/c)

  given: '(7 3 1 -8 4 8 2 -9 2 8)