Update test program

2021-04-02 01:02:45 +02:00 · 2021-04-02 01:02:45 +02:00 · 7e7defbb9a
parent 222c8dfc8b
commit 7e7defbb9a
1 changed files with 4 additions and 5 deletions
--- a/test.pl
+++ b/test.pl
@ -4,11 +4,10 @@ use Minilisp;
 use Data::Dumper;

 my $term = <<EOF;
-(progn
-  (print "Hello")
-  (print "World")
-  (print a)
-  1)
+(let
+  ((avg-4 (lambda (a b c d) (/ (+ a b c d) 4))))
+  (write-line (avg-4 1 2 3 4))
+  (write-line (avg-4 2 3 4 5)))
 EOF

 my $parsed = Minilisp::compile($term);