Code

#lang racket

(require "common.scm")

(define (reverse-r sequence)
  (fold-right
   (lambda (x y) (append y (list x)))
   '()
   sequence))

(define (reverse-l sequence)
  (fold-left
   (lambda (x y) (cons y x))
   '()
   sequence))

; tests

(reverse-l (list 1 2 3 4))
(reverse-r (list 1 2 3 4))

Output

'(4 3 2 1)
'(4 3 2 1)