From 156d4befa762b6bbdd93b2457c92ab2dfa66f73c Mon Sep 17 00:00:00 2001 From: Daniel Cerqueira Date: Sun, 25 Jan 2026 18:45:43 +0000 Subject: add reverse defun --- liblali.c | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'liblali.c') diff --git a/liblali.c b/liblali.c index bf96385..1fe20fe 100644 --- a/liblali.c +++ b/liblali.c @@ -1676,6 +1676,11 @@ static char *stdlib = LISP( (defun append (xs y) (fill ((ap xs) y) (f (cons (car xs) (append (cdr xs) y))))) + + (defun reverse (xs) + (fill + ((space (cdr xs)) (append (reverse (cdr xs)) (list (car xs)))) + (f xs))) ); // MAIN /////////////////////////////////////////////////////////////////////// -- cgit