Entropy/Narcissist: Difference between revisions
m
→{{header|Perl 6}}: kebab-case, Bag adjustment
m (added an "image) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: kebab-case, Bag adjustment) |
||
Line 287:
=={{header|Perl 6}}==
{{Works with|rakudo|2016.05}}
<lang Perl 6>say log(2) R/ [+] map -> \p { p * -log p }, $_.
given slurp($*
Result should be in the neighborhood of 4.9
{{out}}
<pre>4.89351613053006</pre>
| |||