StreetStrider · January 10, 2014 19:36
diff --git a/racket-foldl-filter.rkt b/racket-foldl-filter.rkt
 #lang racket

 (define (@filter fn L)
  (foldl
    (lambda (i A)
      (if (fn i)
        (append A (list i))
        A
      )
    )
    empty
    L
  )
 )

 (print (@filter positive? '(-1 -2 3 4 7 -0 -5)))
 (newline)
	#lang racket

	(define (@filter fn L)
	(foldl
	(lambda (i A)
	(if (fn i)
	(append A (list i))
	A
	)
	)
	empty
	L
	)
	)

	(print (@filter positive? '(-1 -2 3 4 7 -0 -5)))
	(newline)