Paste # 96483:

PasteRack.org

Paste # 96483
2016-06-28 17:30:47

Fork as a new paste.
Paste viewed 27 times.
Tweet
Embed:
<link type="text/css" rel="stylesheet" href="http://pasterack.org/scribble.css"/><link type="text/css" rel="stylesheet" href="http://pasterack.org/racket.css"/><link type="text/css" rel="stylesheet" href="http://fonts.googleapis.com/css?family=Droid+Sans+Mono"/><div><pre>#lang racket (define(z l)(cons(if(>(car l)(cdar l)) (list (car l))(car l))(if(<(car l)(cdar l))(list (z l))(z l)))) (z (list 7, 3, 1, -8, 4, 8, 2, -9, 2, 8)) </pre></div>

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