Perl 6 - Errata - Conditionals and recursion - Integer divison and modulo(Think Perl 6)

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)のChapter 4(Conditionals and recursion)の Integer division and modulo にミスがあるっぽいから報告、提出してみた。

Integer division and modulo.(No. 1553, Mobi(Kindle))

The $dividend %% $divisor expression returns a true value if $divisor % $dividend is equal to 0, …

ではなく、"The $dividend %% $divisor expression returns a true value if $dividend % $divisor is equal to 0, …"。

確認。

コード(Emacs)

#!/usr/bin/env perl6

my $dividend = 10;
my $divisor = 2;

say '$dividend: ', $dividend, ' $divisor: ', $divisor;
say '$dividend %% $divisor: ', $dividend %% $divisor;
say '$dividend % $divisor: ', $dividend % $divisor;
say '$divisor % $dividend: ', $divisor % $dividend;

say '';

$dividend = 2;
$divisor = 10;

say '$dividend: ', $dividend, ' $divisor: ', $divisor;
say '$dividend %% $divisor: ', $dividend %% $divisor;
say '$dividend % $divisor: ', $dividend % $divisor;
say '$divisor % $dividend: ', $divisor % $dividend;

入出力結果(Terminal)

$ ./sample_errata.pl
$dividend: 10 $divisor: 2
$dividend %% $divisor: True
$dividend % $divisor: 0
$divisor % $dividend: 2

$dividend: 2 $divisor: 10
$dividend %% $divisor: False
$dividend % $divisor: 2
$divisor % $dividend: 0
$