Need to think on instruction ref vs comp vs ptr.

1 files changed, 47 insertions, 0 deletions

diff --git a/data/tests/extra_functionals.fate b/data/tests/extra_functionals.fate
index de44c6f..44cd525 100644
--- a/data/tests/extra_functionals.fate
+++ b/data/tests/extra_functionals.fate
@@ -73,4 +73,51 @@
 (set int_list_a (var int_list_c))
 (reverse! int_list_a)
 (set int_list_b (reverse (range 0 50 5)))
+
+(global (list string) some_words_a)
+(global (list string) some_words_b)
+(global (set string) some_words_c)
+
+(set some_words
+   (map
+      (lambda ( (int i) )
+         (switch 0
+            ((% (var i) 5) Five)
+            ((% (var i) 4) Four)
+            ((% (var i) 3) Three)
+            ((% (var i) 2) Two)
+            None
+         )
+      )
+      (range 0 20 1)
+   )
+)
+(map!
+   (lambda ( (int i) )
+      (switch 0
+         ((% (var i) 5) Five)
+         ((% (var i) 4) Four)
+         ((% (var i) 3) Three)
+         ((% (var i) 2) Two)
+         None
+      )
+   )
+   (range 0 20 1)
+   some_words_b
+)
+
+(map!
+   (lambda ( (int i) )
+      (switch 0
+         ((% (var i) 5) Five)
+         ((% (var i) 4) Four)
+         ((% (var i) 3) Three)
+         ((% (var i) 2) Two)
+         None
+      )
+   )
+   (range 0 20 1)
+   some_words_c
+)
+
 (end)