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

Add more functions: null, evenp and oddp

Browse source
This commit is contained in:
madmaurice 2021-04-02 01:12:22 +02:00
parent 2c8ce149a6
commit 39d791fcf4
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/Minilisp.pm
View file

@ -102,6 +102,9 @@ my %stdctx = (
print "$e\n"; print "$e\n";
return undef; return undef;
}, },
'null' => sub { my ($a) = @_; return ! defined $a; },
'evenp' => sub { my ($a) = @_; return ($a % 2 == 0); },
'oddp' => sub { my ($a) = @_; return ($a % 2 != 0); },
'eq' => sub { my ($a, $b) = @_; return ($a eq $b); }, 'eq' => sub { my ($a, $b) = @_; return ($a eq $b); },
'ne' => sub { my ($a, $b) = @_; return ($a ne $b); }, 'ne' => sub { my ($a, $b) = @_; return ($a ne $b); },
'==' => sub { my ($a, $b) = @_; return ($a == $b); }, '==' => sub { my ($a, $b) = @_; return ($a == $b); },