Perl 6 - Starting with the basics - Strings - Looping and Counting(Counting the Letters)

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 7(Strings)、Looping and Counting の Exercise: Counting the Letters.を取り組んでみる。

Exercise: Counting the Letters.

コード(Emacs)

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

sub count($word, $letter) {
    my $count = 0;
    for $word.comb {
        $count++ if $_ eq $letter;
    }
    $count;
}

say count('', 'a');
say count('a', 'a');
say count('A', 'a');
say count('banana', 'a');
say count('日本語', 'a');
say count('日本語a', 'a');

入出力結果(Terminal, REPL)

$ ./sample_count.pl
0
1
0
3
0
1
$