Ideone.com

fork download

copy

#!/usr/bin/perl
$a=10;
while ($a>0) 
{
print "$a, ";
$a=$a-1;
}
exit;

Success #stdin #stdout 0.01s 5268KB

stdin

copy

Standard input is empty

stdout

copy

10, 9, 8, 7, 6, 5, 4, 3, 2, 1,

https://ideone.com/dWrWMC

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!