fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. print "enter array";
  4. @arr=<STDIN>;
  5. $count=0;
  6. print @arr;
  7. while($count < @arr)
  8. {
  9. 	$i=1;
  10. 	while([$i-1] > arr[$i])
  11.  
  12. 	{
  13. 		@arr[$i-1,$i]=@arr[$i,$i-1];
  14. 		$i++;
  15. 	}
  16. 	$count++;
  17. }
  18. print @arr;
  19.  
  20.  
  21.  
Runtime error #stdin #stdout #stderr 0s 6000KB
comments (?)
stdin
copy 
6
7
8
9
1
3
0
stdout
copy 
Standard output is empty
stderr
copy 
syntax error at prog.pl line 10, near "arr["
syntax error at prog.pl line 17, near "}"
Execution of prog.pl aborted due to compilation errors.
https://ideone.com/aoQRHC
language:
Perl (perl 5.28.1)
created:
8 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!