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;
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);