I have a list of words (182260 words, 1.6MB) that I need to read into a series of hashes, e.g. (word => true) for quick lookups,(word => (anagrams)), etc. Rather than do this every time the program is run, I want to serialise the hashes and dump them to a file, and subsequently loading in the file if it exists.
However, a quick test: ;;;-------------------------------------------------------------------------------------- (define word-list (file->list "sowpods.txt")) (define dict (make-hash-table)) (define (each-word proc) (for-each proc word-list)) (with-output-to-file "dict.s11n" (lambda () (each-word (lambda (word) (hash-table-set! dict word #t))) (serialize dict))) ;;;-------------------------------------------------------------------------------------- has spiked my cpu at 100% for the last several minutes, and seems to be showing no signs of completing any time soon (it's taken a bit over 10 minutes to write out 600k of data). Is there something I'm doing wrong, or some lighter way I can serialise and deserialise the hash? martin _______________________________________________ Chicken-users mailing list Chicken-users@nongnu.org http://lists.nongnu.org/mailman/listinfo/chicken-users