Quorum Project Page - Quorum Programming Language

Text Compression

1

use Libraries.Containers.Array

text value = input("Enter text to compress, or leave this blank to use the default text instead. Do not use any numbers.")

if value = ""
    value = "she sells sea shells on the sea shore the shells that she sells are sea shells i'm sure So if she sells sea shells on the sea shore i'm sure that the shells are sea shore shells"
end

value = value:ToLowerCase()

number startSize = value:GetSize()
number compressionRate = 0

Array<text> symbols
text newLine = value:GetLineFeed()
text compressionRules = ""
text quote = newLine:GetDoubleQuote()

boolean running = true
repeat while running
    text toCompress = input(value + compressionRules + newLine + newLine + compressionRate + "%" + newLine + newLine + "Enter a portion of the text to compress, or leave this blank to finish.")
    if toCompress:IsEmpty()
        running = false
    else
        if compressionRules:IsEmpty()
            compressionRules = newLine
        end

integer symbol = symbols:GetSize()
        symbols:Add(toCompress)

repeat while value:Contains(toCompress)
            value = value:Replace(toCompress, "" + symbol)
        end

integer symbolSize = 0
        integer counter = 0
        repeat while counter < symbols:GetSize()
            symbolSize = 1 + symbols:Get(counter):GetSize()
            counter = counter + 1
        end

compressionRate = 100 - 100 * ((value:GetSize() + symbolSize)/ startSize)
        compressionRules = compressionRules + newLine + symbol + ": " + quote + toCompress + quote
        if symbols:GetSize() >= 10
            output "Reached maximum of 10 symbols in the dictionary, stopping."
            running = false
        end
    end
end

output "Final compression rate: " + compressionRate
compressionRules = compressionRules:GetSubtext(1)
output "Dictionary: " + compressionRules
output "Final value: "
output value

"Text Compression" by Projects

Text Compression

Code Area

Output Area