madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Update test program

Browse source
This commit is contained in:
madmaurice 2021-04-02 01:02:45 +02:00
parent 222c8dfc8b
commit 7e7defbb9a
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test.pl
View file

@ -4,11 +4,10 @@ use Minilisp;
use Data::Dumper; use Data::Dumper;
my $term = <<EOF; my $term = <<EOF;
(progn (let
(print "Hello") ((avg-4 (lambda (a b c d) (/ (+ a b c d) 4))))
(print "World") (write-line (avg-4 1 2 3 4))
(print a) (write-line (avg-4 2 3 4 5)))
1)
EOF EOF
my $parsed = Minilisp::compile($term); my $parsed = Minilisp::compile($term);