my $one_literal = "1"; my $counter = 1; while ( 1 ) { for ( my $i = 1; $i <= $counter; $i++ ) { printf "$one_literal"; } printf "\n"; $counter++; }
In reply to Re^3: Generate the perl sequence 1, 11, 111, ....
by matrixmadhan
in thread Generate the perl sequence 1, 11, 111, ....
by alih110
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |