gambas-source-code/benchmark/sort.pl

#/usr/bin/perl -w

my (@tab);

sub bubblesort
{
  $tab_size = @tab - 1;

  for $i (0 .. $tab_size - 1)
  {
    for $j ($i + 1 .. $tab_size)
    {
      if ($tab[$j] < $tab[$i])
      {
         $aux = $tab[$i];
         $tab[$i] = $tab[$j];
         $tab[$j] = $aux;
      }
    }
  }
}

for (1..1000) {

@tab = (619,426,82,57,329,485,758,555,905,499,
751,11,64,418,90,15,857,832,1,607,
754,347,383,258,423,938,731,144,29,547,
825,31,32,897,778,180,265,631,475,985,
178,41,412,28,734,63,809,47,105,49,
50,52,51,916,309,665,685,956,682,112,
147,292,62,989,204,861,676,490,316,399,
402,918,610,437,337,75,76,430,102,396,
797,266,104,427,40,588,767,159,495,359,
250,928,226,467,94,873,89,907,679,163,
339,431,282,110,829,480,527,438,220,109,
864,111,16,113,114,115,116,890,840,273,
120,288,612,894,78,578,914,944,139,493,
428,321,156,865,295,500,800,55,228,408,
959,176,142,182,856,689,497,169,392,311,
336,151,571,296,501,762,327,745,429,715,
304,924,319,594,103,796,807,496,119,227,
170,171,81,545,174,175,655,629,27,876,
565,181,223,502,964,185,328,811,54,930,
628,573,622,117,194,388,196,747,83,741,
891,772,860,323,209,56,308,207,132,12,
630,243,299,213,695,782,503,123,955,365,
692,214,152,34,254,143,345,404,815,542,
215,580,516,355,77,235,459,219,697,743,
240,753,476,150,342,585,246,509,93,848,
191,486,252,167,231,686,256,257,885,709,
70,675,9,970,357,183,42,881,770,530,
843,877,672,648,46,795,306,36,634,279,
824,281,461,98,285,635,286,951,373,53,
958,792,72,293,489,833,198,186,567,325,
59,548,932,393,280,305,131,314,99,644,
310,173,312,657,193,847,554,317,488,971,
562,669,395,498,324,537,552,360,909,878,
851,39,941,889,334,998,505,844,765,534,
340,287,136,343,575,504,912,940,353,349,
4,973,352,415,775,838,158,835,358,356,
134,570,463,710,23,443,574,923,405,146,
301,892,647,698,982,326,582,377,242,915,
620,276,166,746,125,871,779,952,195,244,
37,200,100,71,854,827,678,397,398,736,
264,638,764,403,245,270,141,58,819,38,
239,411,862,413,806,625,626,284,361,791,
939,925,831,390,898,866,659,723,351,221,
127,627,348,730,208,435,436,921,550,991,
845,441,271,394,460,478,133,874,636,541,
450,597,452,453,165,455,456,531,704,236,
880,135,80,849,189,465,694,192,777,469,
442,471,520,566,457,263,707,477,617,673,
598,666,592,483,484,586,513,237,140,614,
371,491,667,432,494,118,603,931,999,60,
384,759,439,68,368,532,262,298,525,953,
687,913,419,73,514,515,378,869,3,406,
640,20,522,523,587,462,526,17,528,529,
269,385,656,821,992,535,536,623,172,962,
540,744,154,763,677,812,546,760,729,974,
10,401,407,538,813,247,576,557,558,927,
968,354,690,481,564,369,473,380,568,818,
858,639,572,508,702,972,739,994,492,19,
769,653,451,583,521,642,681,794,85,433,
590,711,8,187,579,595,882,901,177,872,
291,868,602,774,318,738,95,884,803,969,
524,949,379,613,251,802,616,210,618,464,
391,621,366,945,624,447,232,929,341,981,
683,684,808,22,259,137,448,737,977,828,
2,641,382,790,658,728,202,372,449,850,
21,290,652,444,668,414,370,277,331,445,
87,661,718,30,591,79,788,24,294,654,
670,671,651,332,206,900,660,544,987,823,
680,599,417,903,338,346,757,510,91,157,
643,789,363,693,307,507,45,278,699,260,
700,701,608,129,837,297,706,663,708,375,
224,933,712,713,714,965,313,947,560,596,
720,267,722,320,145,846,561,688,859,386,
374,735,732,756,549,517,584,637,153,387,
148,199,793,255,674,108,400,230,748,902,
234,434,569,786,86,581,755,771,35,633,
725,761,107,7,121,61,556,421,601,225,
474,458,425,773,482,995,776,128,937,300,
420,781,0,783,784,303,409,946,350,362,
410,124,787,733,487,724,241,834,454,875,
84,203,43,97,984,805,229,96,205,632,
716,727,5,908,976,853,190,817,742,126,
820,533,822,416,179,424,852,168,344,130,
274,65,217,978,218,122,911,804,470,917,
717,364,740,88,810,799,888,315,25,149,
261,330,74,563,606,662,472,422,696,645,
646,184,249,798,863,559,162,836,511,506,
870,893,814,867,440,479,101,283,211,879,
212,721,842,883,960,543,650,986,381,333,
589,197,816,593,67,512,18,389,950,551,
48,785,703,957,904,222,906,609,33,446,
910,600,750,577,335,69,553,839,160,919,
920,604,922,268,253,322,926,605,966,138,
749,272,302,895,934,935,954,948,726,780,
466,161,899,943,801,664,14,841,826,768,
238,691,164,106,752,539,201,66,188,13,
886,961,996,963,275,766,216,967,705,942,
92,855,26,6,367,975,518,248,887,979,
980,44,468,983,611,615,376,719,988,830,
155,896,519,993,233,990,289,997,936,649);

bubblesort(@tab);
}

print "@tab\n";