RosettaCodeData/Task/Entropy/Elena/entropy.elena

import system'math;
import system'collections;
import system'routines;
import extensions;

extension op
{
    logTwo()
        = self.ln() / 2.ln();
}

public Program()
{
    var input := console.readLine();
    var infoC := 0.0r;
    var table := Dictionary.new();

    input.forEach::(ch)
    {
        var n := table[ch];
        if (nil == n)
        {
            table[ch] := 1
        }
        else
        {
            table[ch] := n + 1
        }
    };

    var freq := 0;
    table.forEach::(letter)
    {
        freq := letter.toInt().realDiv(input.Length);

        infoC += (freq * freq.logTwo())
    };

    infoC *= -1;

    Console.printLine("The Entropy of ", input, " is ", infoC)
}