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

Add mod function

Browse source
This commit is contained in:
madmaurice 2021-04-05 03:50:48 +02:00
parent 41984b0083
commit 941bd17ac6
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/Minilisp.pm
View file

@ -271,6 +271,13 @@ my %stdctx = (
} }
return $v; return $v;
}, },
'mod' => sub {
my ($number, $divisor) = @_;
$number += $divisor while ( $number < 0 );
$number -= $divisor while ( $number >= $divisor );
return $number;
},
# String comparison # String comparison
'string=' => sub { my ($a, $b) = @_; return to_lisp_bool($a eq $b); }, 'string=' => sub { my ($a, $b) = @_; return to_lisp_bool($a eq $b); },