Мога да накарам филтъра да работи, но не го прави разрушително. По-долу са началният код и тестовите случаи:
(define (filter! f s)
;;Your solution
Тестови случаи:
(define (big x) (> x 5))
(define ints (list 1 10 3 8 4 7))
(define ints1 (cdr ints))
(define filtered-ints (filter! big ints))
filtered-ints
; expect (10 8 7)
(eq? filtered-ints ints1) ; expect #t
Може ли някой да помогне, моля?
ints1
тук? - person PJ.Hades   schedule 24.04.2012reverse!
е доста различен отfilter!
, това не е дублиран въпрос - person Óscar López   schedule 24.04.2012