assocs.extras: Move some often-used words to core

[factor.git] / extra / rosetta-code / anagrams-deranged / anagrams-deranged.factor

diff --git a/extra/rosetta-code/anagrams-deranged/anagrams-deranged.factor b/extra/rosetta-code/anagrams-deranged/anagrams-deranged.factor
index ea35eb08a9d853285ccca0de451a380ce1110da2..284e85c4c64b575a9b566962d58a78bab9d64a9e 100644 (file)
--- a/extra/rosetta-code/anagrams-deranged/anagrams-deranged.factor
+++ b/extra/rosetta-code/anagrams-deranged/anagrams-deranged.factor
@@ -32,8 +32,7 @@ IN: rosettacode.anagrams-deranged
         ] each
     ] keep ;
 
-: anagrams ( hash -- seq )
-    [ nip length 1 > ] assoc-filter values ;
+: anagrams ( hash -- seq ) [ length 1 > ] filter-values values ;
 
 : deranged-anagrams ( path -- seq )
     parse-dict-file anagrams [ derangements ] map concat ;