#lang racket (define list-recur (lambda (f init) (letrec ([helper (lambda (l) (if (null? l) init (f (car l) (helper (cdr l)))))]) helper))) ;;; Remember: ((list-recur cons ()) '(2 3)) -> (2 3)