;#!/usr/bin/racket
;#lang scheme

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

(define (reverse-l sequence)
        (foldl (lambda (x y) (append (list x) y)) '() sequence))

; Test
(define seq (list 1 2 3 4 5 6 7))

(display (reverse-r seq))
(newline)

(display (reverse-l seq))
(newline)