Perl 6 - Starting with the basics - Conditionals and recursion(three sticks, triangle)

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 4(Conditionals and recursion)のExercises 4-3-1、2.を取り組んでみる。

Exercises 4-3-1、2.

コード(Emacs)

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

say '1.';

sub is-triangle($a, $b, $c) {
    if $a > $b + $c or $b > $c + $a or $c > $a + $b {
        say 'No';
    } else {
        say 'Yes';
    }
}

is-triangle(12, 1, 1);
is-triangle(1, 12, 1);
is-triangle(1, 1, 12);

is-triangle(1, 2, 4);
is-triangle(2, 4, 1);
is-triangle(4, 1, 2);

is-triangle(2, 3, 4);
is-triangle(3, 4, 2);
is-triangle(4, 2, 3);

say '2.';
for 1..9 {
    my $a = Int(get);
    my $b = Int(get);
    my $c = Int($*IN.get);
    is-triangle($a, $b, $c);
}

入出力結果(Terminal, REPL)

$ ./sample3.pl < sample3.txt 
1.
No
No
No
No
No
No
Yes
Yes
Yes
2.
No
No
No
No
No
No
Yes
Yes
Yes
$ cat sample3.txt 
12
1
1
1
12
1
1
1
12
1
2
4
2
4
1
4
1
2
2
3
4
3
4
2
4
2
3
$