|
|
|
@ -17,7 +17,6 @@
|
|
|
|
(define-values (head tail) (splitf-at others (compose1 not pred)))
|
|
|
|
(define-values (head tail) (splitf-at others (compose1 not pred)))
|
|
|
|
(cons (append (or car-match null) head) (slicef-at tail pred force?))]))
|
|
|
|
(cons (append (or car-match null) head) (slicef-at tail pred force?))]))
|
|
|
|
|
|
|
|
|
|
|
|
(require sugar/debug)
|
|
|
|
|
|
|
|
(define+provide/contract (slice-at xs len [force? #f])
|
|
|
|
(define+provide/contract (slice-at xs len [force? #f])
|
|
|
|
((list? (and/c integer? positive?)) (boolean?) . ->* . (listof list?))
|
|
|
|
((list? (and/c integer? positive?)) (boolean?) . ->* . (listof list?))
|
|
|
|
(cond
|
|
|
|
(cond
|
|
|
|
@ -46,9 +45,6 @@
|
|
|
|
counter)
|
|
|
|
counter)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define+provide/contract (members-unique? x)
|
|
|
|
(define+provide/contract (members-unique? x)
|
|
|
|
((or/c list? vector? string?) . -> . boolean?)
|
|
|
|
((or/c list? vector? string?) . -> . boolean?)
|
|
|
|
(cond
|
|
|
|
(cond
|
|
|
|
|
