From 368e1be5c69f604eb6b7b823407a2e3a22916c04 Mon Sep 17 00:00:00 2001
From: MadMaurice <madmaurice@zom.bi>
Date: Fri, 2 Apr 2021 02:46:43 +0200
Subject: [PATCH] new testprogram: factorial

---
 test.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/test.pl b/test.pl
index 2d21b5a..15b330a 100644
--- a/test.pl
+++ b/test.pl
@@ -4,10 +4,9 @@ use Minilisp;
 use Data::Dumper;
 
 my $term = <<EOF;
-(progn
- (defun avg-2 (a b) (/ (+ a b) 2))
+(defun fact (n) (if (> n 1) (* n (fact (- n 1))) 1))
 
- (write-line (avg-2 1 19)))
+(write-line (fact 5))
 EOF
 
 my $parsed = Minilisp::compile($term);