Advent of Code day2をPerl 6で

こんにちは、4日目の投稿になります。

例によって投稿がなかったのでAdvent of Code day2の私の回答を貼っておきます。

use v6;

$*IN.lines>>.split("\t",:skip-empty)\
>>.Int\
>>.sort\
.map({.[+$_ - 1] - .[0]})\ # (#1)
.sum\
.say;

• ポイント
  • mapの中で同じ配列を2回参照したい場合は.か$_を使いましょう
  • ., $_ と * は使いどころが異なるので注意しましょう。

以上、4日目の投稿でした。

明日は、AnaTofuZさんの『Perl6のdebugの小ネタについて』です。
お楽しみに!