All pastes #337264 Raw Edit

Something

public text v1 · immutable
·published 2007-02-02 17:59 UTC
rendered paste body
(lambda (l p) (
     (cond 
        ((empty? l) true) 
             ((< (car l) p) (discount-store (cdr l) p)) 
               (true false)))))