Advent of Code day5をPerl 6で

こんにちは、8日目の投稿になります。
今日は投稿がなかったようなので、私のAdvent of Code day5の回答を貼っておきます。

use v6;                                                                                                                                                
my Int @maze = $*IN.lines>>.Int;                                                                                                                       
my Int $pos = 0;                                                                                                                                       
do while $pos != +@maze {                                                                                                                              
    $pos += @maze[$pos]++;                                                                                                                             
    1                                                                                                                                                  
}.sum.say;                                                                                                                                             

• ポイント
  • do-whileを使うとブロックの最後の値が評価されたもののリストを作ることができます

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