p6.p6

use nqp;

nqp::stmts(
  (my $ins := nqp::getattr('day_05.input'.IO.slurp.words.map(*.Int).eager.List,
    List, '$!reified')),
  (my int $index),
  (my int $stop = nqp::elems($ins)),
  (my int $jump),
  (my int $iterations),
  nqp::while(
    nqp::islt_i($index, $stop),
    nqp::stmts(
      ($jump = nqp::atpos($ins,$index)),
      nqp::if(
        nqp::isge_i($jump,3),
        nqp::bindpos($ins,$index,nqp::sub_i(nqp::atpos($ins,$index),1)),
        nqp::bindpos($ins,$index,nqp::add_i(nqp::atpos($ins,$index),1))),
      ($index = nqp::add_i($index,$jump)),
      ($iterations = nqp::add_i($iterations, 1)))),
  nqp::say($iterations));