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

Update testprogram

Browse source
This commit is contained in:
madmaurice 2021-04-02 01:07:23 +02:00
parent bbf6ae9cbd
commit 2c8ce149a6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test.pl
View file

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