fork download
copy 
  1.  
  2. $x = $*IN;
  3. while(1){
  4.         $x=$x-1;
  5.          if($x eq 0){
  6.                 break;
  7.         }
  8.          my $input = $*IN;
  9.         print sqrt($input); 
  10.     }
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
===SORRY!===
Missing block at line 8, near "my $input "
stdout
copy 
Standard output is empty
https://ideone.com/RXrLm
language:
Perl (perl 2018.12)
created:
14 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!