Perl6
Perl 6Day 4

Advent of Code day2をPerl 6で

More than 1 year has passed since last update.

こんにちは、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の小ネタについて』です。
お楽しみに!