编码三角形数

作者：Shlomi Fish

三角形数序列的第 n 项由 tn = ½n(n+1) 给出；所以前十个三角形数是

1, 3, 6, 10, 15, 21, 28, 36, 45, 55, ...

通过将单词中的每个字母转换为与其字母顺序相对应的数字并添加这些值，我们形成一个单词值。例如，单词 SKY 的值为 19 + 11 + 25 = 55 = t10。如果单词值是三角形数，那么我们将该单词称为三角形单词。

使用 words.txt（右键单击并“将链接/目标另存为...”），这是一个包含近两千个常用英语单词的 16K 文本文件，其中有多少个是三角形单词？

源代码： prob042-shlomif.p6

use v6;

sub is_triangle($half)
{
    my $n = $half +< 1;

    my $i = Int( sqrt($n) );

    if $i * $i == $n
    {
        return False;
    }
    return $n == $i * ( $i + 1 );
}

sub MAIN(:$verbose = False) {
    my $total_sum = 0;

    my $words-file = $*SPEC.catdir($*PROGRAM-NAME.IO.dirname, 'words.txt');
    my $text = $words-file.IO.slurp;
    my @words = $text ~~ m:global/<[A .. Z]>+/;
    my $RESULT = +(@words.grep(sub ($_) { is_triangle( sum( map { $_.ord - 'A'.ord + 1 },$_.comb) ) }));
    say $RESULT;
}