Advent of Code day1をPerl 6で

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

投稿がなかったのでAdvent of Code day1の私の回答を張っておきます。

• ソースコード

use v6;                                                                            
                                                                                   
my @a = $*IN.slurp.trim.comb; # (#1)                                                    
say (|@a.tail(+@a - 1),@a[0] Z @a)\ # (#2)                                               
.map(-> ($a, $b) { $a == $b ?? $a !! 0 })\                                         
.sum; 

• ポイント
  • 文字列から、文字単位のリストを作りたいならcombを使います (#1)
  • | を使うと平たん化ができます (#2)

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