aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-03-06 22:25:12 -08:00
parent ed705008a8
commit 0df55f9f24
2196 changed files with 32999 additions and 3075 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Entropy/Elena/entropy.elena
View file

@ -15,7 +15,7 @@ public program()
var infoC := 0.0r;
var table := Dictionary.new();
input.forEach:(ch)
input.forEach::(ch)
{
var n := table[ch];
if (nil == n)
@ -29,7 +29,7 @@ public program()
};
var freq := 0;
table.forEach:(letter)
table.forEach::(letter)
{
freq := letter.toInt().realDiv(input.Length);

9
Task/Entropy/Excel/entropy-1.excel Normal file
View file

@ -0,0 +1,9 @@
=LET(
_MainS,A1,
_N,LEN(_MainS),
_Chars,UNIQUE(MID(_MainS,SEQUENCE(LEN(_MainS),1,1,1),1)),
calcH,LAMBDA(_c,(_c/_N)*LOG(_c/_N,2)),
getCount,LAMBDA(_i,LEN(_MainS)-LEN(SUBSTITUTE(_MainS,_i,""))),
_CharMap,MAP(_Chars,LAMBDA(a, calcH(getCount(a)))),
-SUM(_CharMap)
)

1
Task/Entropy/Excel/entropy-2.excel Normal file
View file

@ -0,0 +1 @@
ShannonEntropyH2=LAMBDA(String,LET(_MainS,String,_N,LEN(_MainS),_Chars,UNIQUE(MID(_MainS,SEQUENCE(LEN(_MainS),1,1,1),1)),calcH,LAMBDA(_c,(_c/_N)*LOG(_c/_N,2)),getCount,LAMBDA(_i,LEN(_MainS)-LEN(SUBSTITUTE(_MainS,_i,""))),_CharMap,MAP(_Chars,LAMBDA(a, calcH(getCount(a)))),-SUM(_CharMap)))

1
Task/Entropy/Excel/entropy-3.excel Normal file
View file

@ -0,0 +1 @@
=ShannonEntropyH2(A1)

3
Task/Entropy/K/entropy.k Normal file
View file

@ -0,0 +1,3 @@
entropy: {(`ln[#x]-(+/{x*`ln@x}@+/{x=\:?x}x)%#x)%`ln@2}
entropy "1223334444"