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