Ideone.com

fork download

copy

#!/usr/bin/perl
use strict;
use warnings;
my $x = 10;
my $y = 0;
while ($x > 3 || $y < 2){
	print "X is $x, Y is $y\n";
	$x--;
	$y++;
}

Success #stdin #stdout 0s 6188KB

stdin

copy

Standard input is empty

stdout

copy

X is 10, Y is 0
X is 9, Y is 1
X is 8, Y is 2
X is 7, Y is 3
X is 6, Y is 4
X is 5, Y is 5
X is 4, Y is 6

https://ideone.com/V4GKjb

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!