Perl 6 - Starting with the basics - Case Study: Data Structure Selection(Exrcises: Huffman Coding, The Frequency Table)

Think Perl 6

開発環境

• macOS Sierra - Apple (OS)
• Emacs (Text Editor)
• Perl 6 (プログラミング言語)
• Rakudo(コンパイラ、実装)

Think Perl 6: How to Think Like a Computer Scientist (Laurent Rosenfeld(著)、Allen B. Downey(著)、Oreilly & Associates Inc)のPart 1(Starting with the basics)、Chapter 11(Case Study: Data Structure Selection)の Exrcises: Huffman Coding、The Frequency Table、Exercise: 11-8.を取り組んでみる。

Exercise: 11-8.

コード(Emacs)

#!/usr/bin/env perl6
# -*- coding: utf-8 -*-

my $filename = 'the_gold_bug.txt';

my $frequency = bag map {.lc}, grep {/<[a..zA..Z]>/}, $filename.IO.lines.comb;

for $frequency.keys.sort {
    say "$_: $frequency{$_}";
}

入出力結果(Terminal, REPL)

$ ./sample8.pl
a: 33064
b: 6968
c: 12135
d: 17041
e: 54768
f: 10901
g: 7804
h: 24376
i: 31206
j: 517
k: 2058
l: 16380
m: 10688
n: 29569
o: 31996
p: 8798
q: 503
r: 25154
s: 25824
t: 40593
u: 12774
v: 4678
w: 8600
x: 831
y: 7761
z: 242
$