fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. sub afficher {
  4.         foreach(@_) {
  5.                 print;
  6.         }
  7. }
  8.  
  9. sub trier {
  10. 	return $a <=> $b;
  11. }
  12.  
  13. @t;
  14.  
  15. for($i = 0; $i < $t; $i++) {
  16.         $t[$i] = int (rand(100)) + 1;
  17. }
  18.  
  19. #tri 1
  20. @t = sort @t; #$a cmp $b
  21. afficher @t;
  22.  
  23. #tri 2
  24. @t = reverse @t;
  25. afficher @t;
  26.  
  27. #tri 3
  28. @t = sort trier@t;
  29. afficher @t;
  30.  
  31. #tri 4
  32. @t = reverse @t;
  33. afficher @t;
  34.  
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/fnezO
language:
Perl (perl 5.28.1)
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!