Ideone.com

fork download

copy

#!/usr/bin/perl
$a=0;
do 
{
print "$a,";
$a=$a+5;
}
while($a<100);
exit;

Success #stdin #stdout 0.01s 5308KB

stdin

copy

Standard input is empty

stdout

copy

0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,

https://ideone.com/LyBRCE

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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