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

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

 (define (@sqr x) (* x x))

 (print (@map @sqr '(1 2 3)))
 (newline)
	#lang racket

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

	(define (@sqr x) (* x x))

	(print (@map @sqr '(1 2 3)))
	(newline)