fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. sub merge {
  6.   my($s, @b) = @_;
  7.   my(@a) = splice(@b, $s);
  8.  
  9.   if (@a * @b == 0) { return @a, @b; }
  10.   my($head) = $a[0] < $b[0] ? shift(@a) : shift(@b);
  11.   return $head, merge(int(@a), @a, @b);
  12. }
  13.  
  14. sub mergesort {
  15.   my($half) = int(@_ / 2);
  16.   if ($half == 0) { return @_; }
  17.  
  18.   return merge($half, mergesort(splice(@_, $half)), mergesort(@_));
  19. }
  20.  
  21. my(@sorted) = mergesort(10, 9, 8, 4, 5, 6, 7, 3, 2, 1);
  22. print(join(" ", @sorted) . "\n");
Success #stdin #stdout 0s 3740KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 2 3 4 5 6 7 8 9 10
https://ideone.com/MOnCoB
language:
Perl (perl 5.28.1)
created:
10 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!