6fc6a48818
[BENCHMARKS] * NEW: Compute the duration of JIT Gambas code without JIT compilation time.
69 lines
4.7 KiB
Text
Executable file
69 lines
4.7 KiB
Text
Executable file
#!/usr/bin/env gbs3
|
|
|
|
Sub BubbleSort(aTab As Integer[])
|
|
|
|
Dim N As Integer = aTab.Max
|
|
Dim I, J As Integer
|
|
|
|
For I = 0 to N - 1
|
|
For J = I + 1 To N
|
|
If aTab[J] < aTab[I] Then
|
|
Swap aTab[J], aTab[I]
|
|
Endif
|
|
Next
|
|
Next
|
|
|
|
End
|
|
|
|
Dim I As Integer
|
|
Dim aSrc As New Integer[]
|
|
Dim aTab As Integer[]
|
|
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([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])
|
|
aSrc.Insert([1,991,91,887,607,995,361,350,831,451])
|
|
|
|
For I = 1 To 100
|
|
|
|
aTab = aSrc.Copy()
|
|
BubbleSort(aTab)
|
|
|
|
Next
|
|
|
|
For I = 0 to 999
|
|
Print aTab[I];;
|
|
Next
|
|
Print
|
|
|
|
Error CStr(Jit.Time)
|