loaddictionary3.rkt

loaddictionary3.rkt

#lang racket
(require racket/file)
(require (planet "memcached.rkt" ("jaymccarthy" "memcached.plt" 1 0)))

(define loaddict
  (lambda (fn)
    (let ([mc (memcached "localhost" 11212)])
      (for-each (lambda (l)
                  (if (> (bytes-length l) 0)
                      (memcached-set! mc l #"1")
                      (printf "skip: ~a\n" l)))
                (file->bytes-lines fn)))))

(loaddict "/usr/share/dict/words")