new testprogram: factorial

2021-04-02 02:46:43 +02:00 · 2021-04-02 02:46:43 +02:00 · 368e1be5c6
parent c536e969d6
commit 368e1be5c6
1 changed files with 2 additions and 3 deletions
--- 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);