Минимизация операций cons

This commit is contained in:
2022-05-12 19:00:52 +03:00
parent 3b797f0215
commit aeb8ad77fa
2 changed files with 15 additions and 0 deletions

View File

@@ -0,0 +1,6 @@
#lang racket
(define (rev lst) ; косвенно рекурсивная функция, вызывающая обращение списка
(define (reverse acc lst) ; явно рекурсивная функция
(if (null? lst) acc
(reverse (cons (car lst) acc) (cdr lst))))
(reverse '() lst))