Re^8: Simplify code in Perl with "unless" conditionnal

I have got one question . Why did you add 1 in line below:

for my $b2_idx ($b1_idx + 1 .. $#random_array) {
[download]

Lost in translation

Comment on Re^8: Simplify code in Perl with "unless" conditionnal Download Code

Replies are listed 'Best First'.
Re^9: Simplify code in Perl with "unless" conditionnal by choroba (Cardinal) on May 30, 2016 at 14:00 UTC
To prevent an overlooked useless comparison of a screenshot to itself. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l]
Re^10: Simplify code in Perl with "unless" conditionnal by Chaoui05 (Scribe) on May 30, 2016 at 14:47 UTC
Perfect , Thanks Lost in translation	[reply]