Select Code to Download

>perl -wE "@a=1..9; $i=0; say @a[$i..($i+=3)-1] while $i<@a   #1"

>perl -wE "$i=1; say for $i..$i++   #2"

...
>perl -wE "$i=1; say for do{$i?$i:($i++)}..$i++   #7"
1