From ce433e51aa644e416f961125a0f690cac76b21a4 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Tue, 15 Sep 2020 22:22:49 +0200 Subject: Need to think on instruction ref vs comp vs ptr. --- data/tests/extra_functionals.fate | 47 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) (limited to 'data') 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) -- cgit v1.2.3-70-g09d2