fork download 
  1. #!/usr/bin/env perl
  2. for my $dotimes (1 .. 8) {
  3.     for my $num (1 .. 9) {
  4.         print $num x $dotimes, "\n";
  5.     };
  6. }
Success #stdin #stdout 0s 4748KB
comments (?)
stdin 
Standard input is empty
stdout 
1
2
3
4
5
6
7
8
9
11
22
33
44
55
66
77
88
99
111
222
333
444
555
666
777
888
999
1111
2222
3333
4444
5555
6666
7777
8888
9999
11111
22222
33333
44444
55555
66666
77777
88888
99999
111111
222222
333333
444444
555555
666666
777777
888888
999999
1111111
2222222
3333333
4444444
5555555
6666666
7777777
8888888
9999999
11111111
22222222
33333333
44444444
55555555
66666666
77777777
88888888
99999999
https://ideone.com/KwFHjS
language:
Perl (perl 5.28.1)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!