Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 28ed094079
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (21 sloc) 0.62 kb
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 {
}
}
Jump to Line
Something went wrong with that request. Please try again.