From 0bdacf4468c245b4dff17b1cf6b0b4bea1f4866f Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 21 Nov 2023 20:04:11 -0800 Subject: [PATCH] anagrams: removing unix platform restriction --- extra/anagrams/anagrams.factor | 6 ++++-- extra/anagrams/platforms.txt | 1 - 2 files changed, 4 insertions(+), 3 deletions(-) delete mode 100644 extra/anagrams/platforms.txt diff --git a/extra/anagrams/anagrams.factor b/extra/anagrams/anagrams.factor index 75b064645d..095757da3d 100644 --- a/extra/anagrams/anagrams.factor +++ b/extra/anagrams/anagrams.factor @@ -2,7 +2,7 @@ ! 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 ) @@ -10,7 +10,9 @@ IN: anagrams [ 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 deleted file mode 100644 index 509143d863..0000000000 --- a/extra/anagrams/platforms.txt +++ /dev/null @@ -1 +0,0 @@ -unix -- 2.34.1