wff.jl

module WFF
    export wordlist

    const delims = [' ','\n','\t','.',',','(',')','?','/'] # single quotes: character literal

    function getstr(file)
        f = open(file)
        str = readstring(f)
        close(f)
        str
    end

    type wordlist
        file::String
        words::Dict{String,Int}
        string::String
        addword::Function
        print::Function
        function wordlist(file::String)
            this = new(file)
            this.words = Dict{String,Int}()
            this.string = getstr(this.file)
            this.addword = function(word)
                haskey(this.words, word) ? this.words[word] += 1 : this.words[word] = 1
                this.words[word]
            end
            this.print = function()
                println("\nword frequencies for $(this.file)")
                [println("\t$kv") for kv in this.words] # word_dicts is object scope!
            end
            map(word->this.addword(word),split(this.string,delims))
            this
        end
    end
end