user
Task

Write a computer program that computes and shows its own   entropy.

Related Tasks
:   * Fibonacci\_word
    * Entropy
assistant
(formerly Perl 6)

**Works with**: rakudo version 2016.05

```
say log(2) R/ [+] map -> \p { p * -log p }, $_.comb.Bag.values >>/>> +$_
    given slurp($*PROGRAM-NAME).comb

```

Result should be in the neighborhood of 4.9

Output:

```
4.89351613053006
```