From d4eb4ff9a013c870936b7546a65bdfd048c60133 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Tue, 15 Sep 2020 10:03:29 +0200 Subject: Fully implements shuffle. --- data/tests/extra_functionals.fate | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'data') diff --git a/data/tests/extra_functionals.fate b/data/tests/extra_functionals.fate index 090ab5b..bc629cb 100644 --- a/data/tests/extra_functionals.fate +++ b/data/tests/extra_functionals.fate @@ -42,4 +42,17 @@ (car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) (cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) +(global (list int) int_list_a) +(global (list int) int_list_b) +(global (list int) int_list_c) +(global int i) + +(for (set i 0) (< (var i) 10) (set i (+ (var i) 1)) + (add! (var i) int_list_a) + (add! (var i) int_list_c) +) + +(set int_list_b (shuffle int_list_a)) +(shuffle! int_list_c) + (end) -- cgit v1.2.3-70-g09d2