procedure Balance(Users     : in Users_Table;
      Donations : out Donations_Access) is
     Total_Sum : Float := Total(Users);
     Equi_Sum : Float := Total_Sum/Float(Users'Length);
     Donate : Float;
     Temp : Donations_Access;
  begin
     for Index in reverse Users'Range loop
        exit when Users(Index).Sum < Equi_Sum;
        Donate := Users(Index).Sum - Equi_Sum;
        while Donate > 0.0 loop
           for Ki in 1..Index-1 loop
              if Users(Ki).Sum < Equi_Sum then
                 if Donations = null then
                    Temp := new Donations_Table(1..1);
                    Create(Temp(1),
                           Users(Index).Id,
                           Users(Ki).Id,
                           Equi_Sum - Users(Ki).Sum);
                 else
                    Temp := new Donations_Table(1..Donations'Length + 1);
                    Create(Temp(Temp'length),
                           Users(Index).Id,
                           Users(Ki).Id,
                           Equi_Sum - Users(Ki).Sum);
                 end if;
                 Donate := Donate - (Equi_Sum - Users(Ki).Sum);
                 Free(Donations);
                 Donations := Temp;
              end if;
              New_Line;
           end loop;
        end loop;
     end loop;
end Balance;

procedure Balance(Users     : in Users_Table;
                  Donations : out Donations_Access) is
   Donators : Users_Table(Users'Range);
   recipients : Users_Table(Users'Range);
   Donator, recipient : natural := 0;
   Total_Sum : Float := Total(Users);
   Equi_Sum : Float := Total_Sum/Float(Users'Length);
   Receive, Donate : Float := 0.0;
   Temp : Donations_Access;
 
begin
   for Index in Users'Range loop
      if (Users(Index).Sum > Equi_Sum) then
         Donators(Donator + 1) := Users(Index);
         Donator := Donator + 1;
      else
         Recipients(Recipient + 1) := Users(Index);
         Recipient := Recipient + 1;
      end if;
   end loop;
   for Index in reverse 1..Donator loop
      Donate := Donators(Index).Sum - Equi_Sum;
      while Donate > 0.0 loop
         for Ki in reverse 1..Recipient loop
 
            if (Donate >= (Equi_Sum - Recipients(Ki).sum)) then
               Receive := Equi_Sum - Recipients(Ki).Sum;
               Donate := Donate - (Equi_Sum - Recipients(Ki).Sum);
               Recipient := Recipient - 1;
            else
               Receive := Donate;
               Donate := 0.0;
            end if;
            if (Donations = null) then
               Temp := new Donations_Table(1..1);
               Create(Temp(1),
                      Donators(Index).Id,
                      Recipients(Ki).Id,
                      receive);
            else
               Temp := new Donations_Table(1..Donations'Length + 1);
               Create(Temp(Temp'length),
                      Donators(Index).Id,
                      Recipients(Ki).Id,
                      Receive);
               Temp(1..Donations'Length) := Donations.all;
            end if;
            Free(Donations);
            Donations := new Donations_Table ' (Temp.all);
         end loop;
      end loop;
   end loop;
end Balance;

procedure Balance(Users     : in Users_Table;
                  Donations : out Donations_Access) is
   Donators : Users_Table(Users'Range);
   recipients : Users_Table(Users'Range);
   Donator, recipient : natural := 0;
   Total_Sum : Float := Total(Users);
   Equi_Sum : Float := Total_Sum/Float(Users'Length);
   Rest, Receive, Donate : Float := 0.0;
   Temp : Donations_Access;
 
begin
   New_Line;
   Put("Total :" );
   Put(Total_Sum);
   New_Line;
   Put("Midle :" );
   Put(Equi_Sum);
 
   for Index in Users'Range loop
      if (Users(Index).Sum >= Equi_Sum) then
         Donators(Donator + 1) := Users(Index);
         Donator := Donator + 1;
      elsif (Users(Index).Sum < Equi_Sum) then
         Recipients(Recipient + 1) := Users(Index);
         Recipient := Recipient + 1;
      end if;
   end loop;
 
   for Index in reverse 1..Donator loop
 
      Donate := Donators(Index).Sum - Equi_Sum;
 
      while Donate > 0.0 loop
 
         for Ki in reverse 1..Recipient loop
 
            receive := (Equi_Sum - Recipients(Ki).Sum) - rest;
 
            if (Donate >= receive) then
 
               Donate := Donate - Receive;
               Recipient := Recipient - 1;
               Rest := 0.0;
               Free(Temp);
 
               if (Donations = null) then
 
                  Temp := new Donations_Table(1..1);
                  Create(Temp(1),
                         Donators(Index).Id,
                         Recipients(Ki).Id,
                         receive);
               else
 
                  Temp := new Donations_Table(1..Donations'Length + 1);
                  Create(Temp(Temp'length),
                         Donators(Index).Id,
                         Recipients(Ki).Id,
                         Receive);
                  Temp(1..Donations'Length) := Donations.all;
               end if;
               Free(Donations);
 Donations := new Donations_Table ' (Temp.all);
            elsif Donate > 0.0 then
               Receive := Donate;
               if Recipients(Ki).Sum + Rest + Donate = Equi_Sum then
                  Rest := 0.0;
               else
                  Rest := Rest + Donate;
               end if;
               Donate := 0.0;
 
               Free(Temp);
 
               if (Donations = null) then
 
                  Temp := new Donations_Table(1..1);
                  Create(Temp(1),
                         Donators(Index).Id,
                         Recipients(Ki).Id,
                         receive);
               else
 
                  Temp := new Donations_Table(1..Donations'Length + 1);
                  Create(Temp(Temp'length),
                         Donators(Index).Id,
                         Recipients(Ki).Id,
                         Receive);
                  Temp(1..Donations'Length) := Donations.all;
               end if;
 
               Free(Donations);
 
               Donations := new Donations_Table ' (Temp.all);
 
               exit;
            end if;
         end loop;
      end loop;
   end loop;
end Balance;

<?php
 define('NB_USERS', 200);
 define('MIN_SUM', 1);
 define('MAX_SUM', 1000);
 define('NB_ROUND', 2);
 define('AttrSum', 'Sum');
 define('AttrDist', 'Dist');
 
 function sortList($List, $Flag)
 {
     foreach($List as $k => $Row)
     {
         $Sums[$k] = $Row[AttrSum];
         $Dists[$k] = $Row[AttrDist];
     }
 
     array_multisort($Dists, $Flag, SORT_NUMERIC, $Sums, SORT_ASC, $List);
 
     return $List;
 }
 
 mt_srand();
 $Avg = 0;
 
 // Init users with a sum
 $ArrayUsers = array();
 for($u = 0; $u < NB_USERS; $u++)
 {
     $ArrayUsers["u$u"][AttrSum] = rand(MIN_SUM, MAX_SUM);
     $ArrayUsers["u$u"][AttrDist] = 0;
     $Avg += $ArrayUsers["u$u"][AttrSum];
 }
 
 // Compute the AVG
 $Avg = round($Avg / NB_USERS, NB_ROUND);
 
 $ArrayGifts = array();
 
 // Compute distance to the AVG
 echo "AVG = $Avg<br />\n";
 
 $ArrayDonors = array();
 $ArrayReceivers = array();
 foreach($ArrayUsers as $u => $User)
 {
     $ArrayUsers[$u][AttrDist] = $User[AttrSum] - $Avg;
     if ($ArrayUsers[$u][AttrDist] >= 0)
     {
         $ArrayDonors[$u] = $ArrayUsers[$u];
         echo "User $u owns ".$User[AttrSum].", so he can give ".$ArrayUsers[$u][AttrDist]."<br />\n";
     }
     else
     {
         $ArrayReceivers[$u] = $ArrayUsers[$u];
         echo "User $u owns ".$User[AttrSum].", so he MUST GET ".$ArrayUsers[$u][AttrDist]."<br />\n";
     }
 }
 
 // Sort DESC of the 2 arrays
 $ArrayDonors = sortList($ArrayDonors, SORT_DESC);
 
 // Negative values!!!
 $ArrayReceivers = sortList($ArrayReceivers, SORT_ASC);
 
 $ArrayKeysReceivers = array_keys($ArrayReceivers);
 $CurrentReceiver = 0;
 $ReceiversSize = count($ArrayReceivers);
 
 foreach($ArrayDonors as $d => $Donor)
 {
     while($ArrayDonors[$d][AttrDist] > 0)
     {
         if ($CurrentReceiver >= $ReceiversSize)
         {
              // Stop while and foreach
              break 2;
         }
 
         $GiftValue = min($ArrayDonors[$d][AttrDist], abs($ArrayReceivers[$ArrayKeysReceivers[$CurrentReceiver]][AttrDist]));
 
         // User (0) gives to user (1), the value (2)
         $ArrayGifts[] = array($d, $ArrayKeysReceivers[$CurrentReceiver], $GiftValue);
 
         // Give
         $ArrayDonors[$d][AttrSum] -= $GiftValue;
         $ArrayDonors[$d][AttrDist] -= $GiftValue;
 
         // Receive
         $ArrayReceivers[$ArrayKeysReceivers[$CurrentReceiver]][AttrSum] += $GiftValue;
         $ArrayReceivers[$ArrayKeysReceivers[$CurrentReceiver]][AttrDist] += $GiftValue;
 
         // Need other gifts?
         if ($ArrayReceivers[$ArrayKeysReceivers[$CurrentReceiver]][AttrDist] >= 0)
         {
             // Go to the next receiver
             $CurrentReceiver++;
         }
     }
 }
 
 echo "<br />\n-------------------------------Results---------------------------<br />\n";
 foreach($ArrayGifts as $g => $Gift)
 {
     echo "User ".$Gift[0]." (".$ArrayDonors[$Gift[0]][AttrSum]." ) gives to user ".$Gift[1]." the gift of ".$Gift[2]." (".$ArrayReceivers[$Gift[1]][AttrSum]." )<br />\n";
 }
?>

procedure Balance(Users     : in Users_Table;
                     Donations : out Donations_Access) is
      Donators : Users_Table(Users'Range);
      recipients : Users_Table(Users'Range);
      Donator, Recipient : Long_Long_integer := 0;
      Total_Sum : Float := Total(Users);
      Equi_Sum : Float := Total_Sum/Float(Users'Length);
      Rest, Receive, Donate : Float := 0.0;
      Temp : Donations_Access;
 
   begin
      
      for Index in Users'Range loop
         if (Users(Index).Sum > Equi_Sum) then
            Donators(Donator + 1) := Users(Index);
            Donator := Donator + 1;
         elsif (Users(Index).Sum < Equi_Sum) then
            Recipients(Recipient + 1) := Users(Index);
            Recipient := Recipient + 1;
         end if;
      end loop;
 
  Main:
      for Index in reverse 1..Donator loop
         Donate := Donators(Index).Sum - Equi_Sum;
         while Donate > 0.0 loop
            if Recipient < 1 then
               exit Main;
            end if;
 
            receive := (Equi_Sum - Recipients(Recipient).Sum) - rest;
 
            if (Donate >= receive) then
               Donate := Donate - receive;
               Free(Temp);
               if (Donations = null) then
 
                  Temp := new Donations_Table(1..1);
                  Create(Temp(1),
                         Donators(Index).Id,
                         Recipients(Recipient).Id,
                         receive);
               else
 
                  Temp := new Donations_Table(1..Donations'Length + 1);
                  Create(Temp(Temp'length),
                         Donators(Index).Id,
                         Recipients(Recipient).Id,
                         Receive);
                  Temp(1..Donations'Length) := Donations.all;
               end if;
               Free(Donations);
               Donations := new Donations_Table ' (Temp.all);
               Recipient := Recipient - 1;
               Rest := 0.0;
            elsif Donate > 0.0 then
               Rest := Rest + Donate;
               Receive := Donate;
               Donate := 0.0;
               Free(Temp);
               if (Donations = null) then
 
                  Temp := new Donations_Table(1..1);
                  Create(Temp(1),
                         Donators(Index).Id,
                         Recipients(Recipient).Id,
                         receive);
               else
                  Temp := new Donations_Table(1..Donations'Length + 1);
                  Create(Temp(Temp'length),
                         Donators(Index).Id,
                         Recipients(Recipient).Id,
                         Receive);
                  Temp(1..Donations'Length) := Donations.all;
               end if;
               Free(Donations);
               Donations := new Donations_Table ' (Temp.all);
            end if;
         end loop;
      end loop Main;
   end Balance;