extra/anagrams/anagrams.factor

   1 ! Copyright (C) 2010 John Benediktsson
   2 ! See https://factorcode.org/license.txt for BSD license
   3
   4 USING: ascii assocs io.encodings.ascii io.files kernel math
   5 sequences sequences.extras sorting sets ;
   6 IN: anagrams
   7
   8 : make-anagram-hash ( strings -- assoc )
   9     [ sort ] collect-by
  10     [ members ] assoc-map
  11     [ length 1 > ] filter-values ;
  12
  13 MEMO: dict-words ( -- seq )
  14     "/usr/share/dict/words" ascii file-lines [ >lower ] map ;
  15
  16 MEMO: dict-anagrams ( -- assoc )
  17     dict-words make-anagram-hash ;
  18
  19 : anagrams ( str -- seq/f )
  20     >lower sort dict-anagrams at ;
  21
  22 : most-anagrams ( -- seq )
  23     dict-anagrams values all-longest ;
  24
  25 : longest-anagrams ( -- seq )
  26     dict-anagrams [ keys all-longest ] keep '[ _ at ] map ;