September 2017 Update

Task/Anagrams/Racket/anagrams-1.rkt

@@ -1,21 +0,0 @@
-#lang racket
-
-(require net/url)
-
-(define (get-lines url-string)
-  (define port (get-pure-port (string->url url-string)))
-  (for/list ([l (in-lines port)]) l))
-
-(define (hash-words words)
-  (for/fold ([ws-hash (hash)]) ([w words])
-    (hash-update ws-hash
-                 (list->string (sort (string->list w) < #:key (λ (c) (char->integer c))))
-                 (λ (ws) (cons w ws))
-                 (λ () '()))))
-
-(define (get-maxes h)
-  (define max-ws (apply max (map length (hash-values h))))
-  (define max-keys (filter (λ (k) (= (length (hash-ref h k)) max-ws)) (hash-keys h)))
-  (map (λ (k) (hash-ref h k)) max-keys))
-
-(get-maxes (hash-words (get-lines "http://www.puzzlers.org/pub/wordlists/unixdict.txt")))

Task/Anagrams/Racket/anagrams-2.rkt

@@ -1,6 +0,0 @@
-'(("neal" "lena" "lean" "lane" "elan")
-  ("trace" "crate" "cater" "carte" "caret")
-  ("regal" "large" "lager" "glare" "alger")
-  ("elba" "bela" "bale" "able" "abel")
-  ("lange" "glean" "galen" "angle" "angel")
-  ("vile" "veil" "live" "levi" "evil"))