Skip to content
This repository
tree: 9e5350d8b5
Fetching contributors…

Cannot retrieve contributors at this time

file 21 lines (21 sloc) 0.62 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
use MONKEY_TYPING;
augment class List {
    method push(\|$args) { Q:CgOp {
        (letn iter (vvarlist_from_fvarlist (unbox fvarlist (@ {$args})))
              targ (getslot rest vvarlist (@ {self}))
          (vvarlist_shift (l iter))
          (ternary (== (i 0) (vvarlist_count (l targ)))
            (l targ (getslot items vvarlist (@ {self})))
            (prog))
          (whileloop 0 0 (iter_hasflat (l iter))
            (vvarlist_push (l targ) (vvarlist_shift (l iter))))
          {Nil})
    } }
}
my @arr;
my $i = 0;
while $i < 3162 { @arr.push($i); $i++ }
for @arr -> \$x {
    for @arr -> \$y {
    }
}
Something went wrong with that request. Please try again.