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

Add logical operations

Browse source
This commit is contained in:
madmaurice 2021-04-02 03:35:59 +02:00
parent 512977011b
commit 395c271243
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/Minilisp.pm
View file

@ -107,7 +107,19 @@ my %stdctx = (
'oddp' => sub { my ($a) = @_; return ($a % 2 != 0); }, 'oddp' => sub { my ($a) = @_; return ($a % 2 != 0); },
'eq' => sub { my ($a, $b) = @_; return ($a == $b); }, 'eq' => sub { my ($a, $b) = @_; return ($a == $b); },
'ne' => sub { my ($a, $b) = @_; return ($a != $b); }, 'ne' => sub { my ($a, $b) = @_; return ($a != $b); },
# Logical operators
'not' => sub { my ($a) = @_; return !$a; }, 'not' => sub { my ($a) = @_; return !$a; },
'and' => sub {
my $v = 1;
$v &&= $_ foreach (@_);
return $v;
},
'or' => sub {
my $v = 0;
$v ||= $_ foreach(@_);
return $v;
},
# Numeric comparison # Numeric comparison
'=' => sub { my ($a, $b) = @_; return ($a == $b); }, '=' => sub { my ($a, $b) = @_; return ($a == $b); },