anagrams: removing unix platform restriction

mrjbq7 · Nov 22, 2023 · 0bdacf4 · 0bdacf4
1 parent 4df472b
commit 0bdacf4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/extra/anagrams/anagrams.factor b/extra/anagrams/anagrams.factor
@@ -2,15 +2,17 @@
 ! See https://factorcode.org/license.txt for BSD license
 
 USING: ascii assocs io.encodings.ascii io.files kernel math
-sequences sequences.extras sorting sets ;
+sequences sequences.extras sets sorting system ;
 IN: anagrams
 
 : make-anagram-hash ( strings -- assoc )
     [ sort ] collect-by
     [ members ] assoc-map
     [ length 1 > ] filter-values ;
 
-MEMO: dict-words ( -- seq )
+HOOK: dict-words os ( -- seq )
+
+M: unix dict-words
     "/usr/share/dict/words" ascii file-lines [ >lower ] map ;
 
 MEMO: dict-anagrams ( -- assoc )

diff --git a/extra/anagrams/platforms.txt b/extra/anagrams/platforms.txt