This preview shows page 1. Sign up to view the full content.
Unformatted text preview: with exc -> close_in file; raise exc let read_dictionary file_name = let inserter s t = match s. with 'A'. .'Z' -> t | _ -> if String.length s < 3 then t else Trie.put (t) (chars_of_string s) (true) in fold_lines inserter Trie.empty file_name...
View Full Document
This note was uploaded on 10/25/2009 for the course CS 3110 at Cornell University (Engineering School).