Entropy/Narcissist: Difference between revisions

 

;Task:

:*   [[Entropy]]

<br><br>

 

=={{header|AutoHotkey}}==

{{works with|AutoHotkey 1.1}}

MsgBox, % Entropy(var)

 

}

return, e

{{Output}}

<pre>5.942956</pre>

 

=={{header|C}}==

 

Assumes that the source file is stored in the working directory as "entropy.c".

#include <stdlib.h>

#include <stdbool.h>

printf("%lf\n",H);

return 0;

{{out}}

 

=={{header|D}}==

import std.stdio, std.algorithm, std.math, std.file;

 

.sum

.writeln;

{{out}}

<pre>6.29803</pre>

 

=={{header|Elixir}}==

text = IO.read(file, :all)

leng = String.length(text)

end)

|> IO.puts

 

{{out}}

 

=={{header|Emacs Lisp}}==

(let ((freq-table (make-hash-table))

(entropy 0)

(shannon-entropy (with-temp-buffer

(insert-file-contents "U:/rosetta/narcissist.el")

{{out}}

 

=={{header|FreeBASIC}}==

' compile with: fbc -s console

' modified code from ENTROPY entry

Print : Print "hit any key to end program"

Sleep

{{out}}

<pre>Windows version

 

=={{header|Go}}==

 

import (

l := float64(len(d))

return math.Log2(l) - hm/l

{{out}}

<pre>

 

=={{header|Haskell}}==

import Data.List

import System.Environment

entropy = sort >>> group >>> map genericLength >>> normalize >>> map lg >>> sum

where lg c = -c * logBase 2 c

 

{{out}} In a shell

 

=={{header|J}}==

 

=={{header|Lua}}==

arg[0] gives the path of the script currently being executed

local inFile = io.open(filename, "r")

local fileContent = inFile:read("*all")

end

 

{{out}}

<pre>4.3591214356783</pre>

 

=={{header|PARI/GP}}==

{{out}}

<pre>%1 = 4.54978213</pre>

 

=={{header|Perl}}==

use strict ;

use warnings ;

}

$infocontent *= -1 ;

{{out}}

<pre>The information content of the source file is 4.6487923749222 !</pre>

 

=={{header|Phix}}==

Minor edit to the [[Entropy#Phix|Entropy]] answer, if compiled assumes source code is in the same directory.

 

 

{{out}}

<pre>

</pre>

 

Minor edit to the [[Entropy#Python|Entropy]] answer.

 

from collections import Counter

 

return -sum( count/lns * math.log(count/lns, 2) for count in p.values())

 

b=f.read()

{{Output}}

 

=={{header|Racket}}==

The entropy of the program below is 4.512678555350348.

#lang racket

(require math)

(- (for/sum ([(d c) (in-hash (samples->hash ds))])

(* (/ c n) (log2 (/ c n)))))

 

=={{header|REXX}}==

REXX doesn't have a BIF (built-in function) for &nbsp; '''log''' &nbsp; or &nbsp; '''ln''', &nbsp; so the subroutine (function) &nbsp; '''log2''' &nbsp; is included herein.

L=length($) /*the byte length of this REXX program.*/

say ' program length: ' L /*pgm length doesn't include meta chars*/

say 'program statements: ' recs /*pgm statements are actually pgm lines*/

say 'The information entropy of this REXX program ──► ' format(sum,,12)

exit /*stick a fork in it, we're all done. */

/*──────────────────────────────────────────────────────────────────────────────────────*/

<pre>

 

</pre>

 

=={{header|Ruby}}==

counts.values.reduce(0) do |entropy, count|

entropy - freq * Math.log2(freq)

end

end

 

{{out}}

</pre>

 

=={{header|Sidef}}==

[0,

s.chars.freq.values.map {|c|

}

 

{{out}}

<pre>

=={{header|Tcl}}==

Note that this code doesn't bother to close the open handle on the script; it is only suitable as a demonstration program.

set log2 [expr log(2)]

foreach char [split $str ""] {dict incr counts $char}

}

 

{{out}}

<pre>

entropy = 4.59099

</pre>

 

=={{header|zkl}}==

Minor edit to the [[Entropy#zkl|Entropy]] answer.

text.pump(Void,fcn(c,freq){ c=c.toAsc(); freq[c]=freq[c]+1; freq }

.fp1((0).pump(256,List,(0.0).create.fp(0)).copy()))

}

 

{{out}}

<pre>