Entropy/Narcissist

From Rosetta Code
< Entropy
Revision as of 06:59, 26 February 2013 by Grondilu (talk | contribs) (Created page with "{{draft task}} Write a program that computes and shows its own entropy. =={{header|Perl 6}}== <lang Perl 6>say log(2) R/ [+] map -> \p { p * -log p }, $_.bag.values »/» +...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Entropy/Narcissist is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

Write a program that computes and shows its own entropy.

Perl 6

<lang Perl 6>say log(2) R/ [+] map -> \p { p * -log p }, $_.bag.values »/» +$_ 

   given slurp($*PROGRAM_NAME).comb</lang>
Output:
4.98893170929151
Retrieved from "https://rosettacode.org/wiki/Entropy/Narcissist?oldid=227291"