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

Add length function for strings

Browse source
This commit is contained in:
madmaurice 2021-04-02 19:03:23 +02:00
parent f8d6ab4f8c
commit a9b9d5efa1
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/Minilisp.pm
View file

@ -166,6 +166,12 @@ my %stdctx = (
'string-not-greaterp' => sub { my ($a, $b) = @_; return !(lc($a) gt lc($b)); }, 'string-not-greaterp' => sub { my ($a, $b) = @_; return !(lc($a) gt lc($b)); },
'string-not-lessp' => sub { my ($a, $b) = @_; return !(lc($a) lt lc($b)); }, 'string-not-lessp' => sub { my ($a, $b) = @_; return !(lc($a) lt lc($b)); },
# string length
'length' => sub {
my ($a) = @_;
return length($a);
},
# Bitwise operations # Bitwise operations
'logand' => sub { 'logand' => sub {
my $v = -1; my $v = -1;