math.combinatorics: cleaner next-permutation.

2017-01-02 09:34:15 -08:00 · 2017-01-02 09:34:15 -08:00 · 59ce436dab
parent e9f6a56c53
commit 59ce436dab
1 changed files with 1 additions and 1 deletions
--- a/basis/math/combinatorics/combinatorics.factor
+++ b/basis/math/combinatorics/combinatorics.factor
@ -153,7 +153,7 @@ HINTS: (next-permutation) array ;
 PRIVATE>

 : next-permutation ( seq -- seq )
-    dup [ ] [ drop (next-permutation) ] if-empty ;
+    dup empty? [ (next-permutation) ] unless ;


 ! Combinadic-based combination methodology