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

Add more std functions

Browse source
This commit is contained in:
madmaurice 2021-04-02 01:02:19 +02:00
parent b6eea1138e
commit 72141ffde6
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/Minilisp.pm
View file

@ -77,17 +77,27 @@ sub tokenize {
}
my %stdctx = (
'add' => sub {
'+' => sub {
my $sum = 0;
$sum += $_ foreach (@_);
return $sum;
},
'sub' => sub {
'-' => sub {
my $sum = shift;
$sum -= $_ foreach (@_);
return $sum;
},
'print' => sub {
'*' => sub {
my $prod = 1;
$prod *= $_ foreach(@_);
return $prod;
},
'/' => sub {
my $quot = shift;
$quot /= $_ foreach(@_);
return $quot;
},
'write-line' => sub {
my $e = shift;
print "$e\n";
return undef;