Add l (length) instruction

1 files changed, 3 insertions, 0 deletions

diff --git a/rip.hs b/rip.hs
index ca8675f..14e7f6f 100644
--- a/rip.hs
+++ b/rip.hs
@@ -150,6 +150,9 @@ rip' code@(x:xs) fns st = do
                     (begin, rest) = (take n newst, drop n newst)
                     res = last begin : init begin ++ rest  --SLOW!
 
+        'l' ->
+            rip' xs fns (fromIntegral (length st) : st)
+
         'a' ->
             rip' xs fns (a + b : cs)
                 where (b:a:cs) = st