From a7356491e534e048374fdf53a534c9ea2034defd Mon Sep 17 00:00:00 2001 From: nsensfel Date: Tue, 15 Sep 2020 16:22:28 +0200 Subject: Fully implements remove_{one,all,at}. --- data/tests/extra_functionals.fate | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'data') diff --git a/data/tests/extra_functionals.fate b/data/tests/extra_functionals.fate index bc629cb..cdbebb3 100644 --- a/data/tests/extra_functionals.fate +++ b/data/tests/extra_functionals.fate @@ -55,4 +55,18 @@ (set int_list_b (shuffle int_list_a)) (shuffle! int_list_c) +(set int_list_c (var int_list_a)) +(remove_one! 6 int_list_a) + +(= (var int_list_a) (remove_one 6 int_list_c)) + +(set int_list_b (var int_list_a)) +(remove_all! 3 int_list_a) + +(= (var int_list_a) (remove_all 3 int_list_b)) + +(set int_list_c (var int_list_a)) +(remove_at! 4 int_list_a) +(= (var int_list_a) (remove_at 4 int_list_c)) + (end) -- cgit v1.2.3-70-g09d2