Arithmetic coding/As a generalized change of radix: Difference between revisions

{{trans|Python}}

[Int = Int] cf

V total = 0

I str != dec

{{out}}

=={{header|C sharp|C#}}==

{{trans|Java}}

using System.Collections.Generic;

using System.Linq;

}

}

{{out}}

<pre>DABDDB => 251 * 10^2

=={{header|D}}==

{{trans|Go}}

import std.bigint;

import std.stdio;

}

}

{{out}}

<pre>DABDDB => 251 * 10^2

=={{header|Go}}==

import (

}

}

{{out}}

<pre>

=={{header|Groovy}}==

{{trans|Java}}

private static class Triple<A, B, C> {

A a

}

}

{{out}}

<pre>DABDDB => 251 * 10^2

Implementation:

aekDict=:verb define

d=. ~.y NB. dictionary lists unique characters

echo 'Decoded:'

echo ' ',":dict (#y) aekDec aekEnc y

Example use:

Dictionary:

A 1r6

1150764267498783364 15

Decoded:

Note that for this task we use our plaintext to generate our dictionary for decoding. Also note that we use rational numbers, rather than floating point, for our dictionary, because floating point tends to be inexact.

=={{header|Java}}==

{{trans|Kotlin}}

import java.util.HashMap;

import java.util.Map;

}

}

{{out}}

<pre>DABDDB => 251 * 10^2

=={{header|JavaScript}}==

{{trans|C#}}

function CumulativeFreq(freq) {

let total = 0;

}

}

{{out}}

<pre>DABDDB => 251 * 10^2

=={{header|Julia}}==

Taken from the wikipedia example.

d = Dict()

for c in s

decode(encoded * "0"^z, dfreq))

end

<pre>

DABDDB 251 * 10^2 DABDDB

=={{header|Kotlin}}==

{{trans|Go}}

import java.math.BigInteger

if (str != dec) throw Exception("\tHowever that is incorrect!")

}

{{out}}

{{trans|Kotlin}}

{{libheader|bignum}}

import bignum

let dec = arithmeticDecoding(enc, Radix, pow, freq)

echo &"{str:<25}→ {enc:>19} * {Radix}^{pow}"

{{out}}

=={{header|Perl}}==

sub cumulative_freq {

die "\tHowever that is incorrect!";

}

{{out}}

<pre>

{{trans|Kotlin}}

{{libheader|Phix/mpfr}}

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">include</span> <span style="color: #004080;">mpfr</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%-25s=&gt; %19s * %d^%d %s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">str</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">encs</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">radix</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">pow</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">ok</span><span style="color: #0000FF;">})</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

{{out}}

<pre>

=={{header|Python}}==

{{works with|Python|3.1+}}

def cumulative_freq(freq):

if str != dec:

{{out}}

<pre>

=={{header|Raku}}==

(formerly Perl 6)

my %cf;

my $total = 0;

die "\tHowever that is incorrect!";

}

{{out}}

<pre>

=={{header|Ruby}}==

cf = {}

total = 0

raise "\tHowever that is incorrect!"

end

{{out}}

<pre>

=={{header|Scala}}==

{{Out}}Best seen in running your browser either by [https://scalafiddle.io/sf/EUNJ0zp/0 ScalaFiddle (ES aka JavaScript, non JVM)] or [https://scastie.scala-lang.org/DVl840oDS2mFvFQ560fxJAScastie (remote JVM)].

val (radix, strings) = (10, Seq("DABDDB", "DABDDBBDDBA", "ABRACADABRA", "TOBEORNOTTOBEORTOBEORNOT"))

val fmt = "%-25s=> %19s * %d^%s"

if (str != dec) throw new RuntimeException("\tHowever that is incorrect!")

}

=={{header|Sidef}}==

var cf = Hash()

var total = 0

die "\tHowever that is incorrect!"

}

{{out}}

<pre>DABDDB => 251 * 10^2

=={{header|Visual Basic .NET}}==

{{trans|C#}}

Imports System.Text

Imports Freq = System.Collections.Generic.Dictionary(Of Char, Long)

End Sub

{{out}}

<pre>DABDDB => 251 * 10^2

{{libheader|Wren-big}}

{{libheader|Wren-fmt}}

import "/fmt" for Fmt

Fmt.print(fmt, str, enc, radix, pow)

if (str != dec) Fiber.abort("\tHowever that is incorrect!")

{{out}}

=={{header|zkl}}==

Uses libGMP (GNU MP Bignum Library)

fcn cumulativeFreq(freqHash){

return(enc,powr,freqHash);

enc*=radix.pow(powr);

base:=freqHash.values.sum(0);

}

decoded.text // Return the decoded output

testStrings:=T(

"DABDDB",

if(str!=dec) println("\tHowever that is incorrect!");

{{out}}

<pre>