From a9b9d5efa1d3cbc6508495c79e982dd6b4cb560c Mon Sep 17 00:00:00 2001
From: MadMaurice <madmaurice@zom.bi>
Date: Fri, 2 Apr 2021 19:03:23 +0200
Subject: [PATCH] Add length function for strings

---
 lib/Minilisp.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/Minilisp.pm b/lib/Minilisp.pm
index 50515b8..65ccfcd 100644
--- a/lib/Minilisp.pm
+++ b/lib/Minilisp.pm
@@ -166,6 +166,12 @@ my %stdctx = (
   '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 length
+  'length' => sub {
+    my ($a) = @_;
+    return length($a);
+  },
+
   # Bitwise operations
   'logand' => sub {
     my $v = -1;