fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. foreach my $m (0 .. 9){
  6.     srand $m;
  7.     my $r = rand(10);
  8.     print "value=$r\n";
  9. }
Success #stdin #stdout 0s 6176KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
value=1.7082803610629
value=0.416303447718782
value=9.12432653437467
value=7.83234962103055
value=6.54037270768644
value=5.24839579434232
value=3.95641888099821
value=2.66444196765409
value=1.37246505430998
value=0.080488140965862
https://ideone.com/WGY1jq
language:
Perl (perl 5.28.1)
created:
9 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!