Perl 6 - Starting with the basics - Strings(String Traversal with a while or for Loop、Ducklings)

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)、String Traversal with a while or for Loop の Exercise: The Ducklings.を取り組んでみる。

Exercise: The Ducklings.

コード(Emacs)

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

my $suffix = 'ack';

for 'J'..'Q' -> $letter {
    if $letter eq 'O' or $letter eq 'Q' {
        say $letter ~ 'u' ~ $suffix;
    } else {
        say $letter ~ $suffix;
    }
}

入出力結果(Terminal, REPL)

$ ./sample_duckl.pl
Jack
Kack
Lack
Mack
Nack
Ouack
Pack
Quack
$