From a6fa824913ffce1c3c017f6346246ecbd2e95776 Mon Sep 17 00:00:00 2001 From: arty Date: Thu, 28 Sep 2023 16:23:48 -0700 Subject: [PATCH] Fix order of expected sorting since atomsort sorts large to small --- test_onehandcalc.clsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test_onehandcalc.clsp b/test_onehandcalc.clsp index 9c320acf..983360bb 100644 --- a/test_onehandcalc.clsp +++ b/test_onehandcalc.clsp @@ -18,15 +18,15 @@ ) (defun try_permuted_list (mylist) - (busy (lambda ((& mylist) newlist) (try_list mylist newlist)) + (busy (lambda ((& mylist) newlist) (try_list (reverse mylist) newlist)) (permutations mylist) 0 ) ) (last (try_list 0 0) - (try_list (range 15) (range 15)) - (try_list (range 15) (reverse (range 15))) + (try_list (reverse (range 15)) (range 15)) + (try_list (reverse (range 15)) (reverse (range 15))) (try_permuted_list (list -1 -1 0 0 2)) (busy (lambda (i) (try_permuted_list (range i))) (range 4)