6 my @l = split /[,\s]/, <>;
10 # my @nodes = (0 .. 4);
11 my @nodes = (0 .. 255);
17 say "pos=$pos skip $skip i=$i ", join(',', @nodes);
19 push @to_rev, splice @nodes, $pos;
20 push @to_rev, splice @nodes, 0, $end - $n;
21 @to_rev = reverse @to_rev;
22 say "to_rev = ", join(',', @to_rev);
23 unshift @nodes, splice @to_rev, @to_rev-($end-$n);
26 push @to_rev, splice @nodes, $pos, $i;
27 splice @nodes, $pos, 0, reverse @to_rev;
29 $pos += $i + $skip++;;
30 $pos -= $n while $pos >= $n;
35 say $nodes[0] * $nodes[1];