緣起於某位參加我課程的同學來信問我的問題：要如何以最佳化的方式測試各種不同出場方法的組合可能？(實際內容就不在這邊贅述了)。一開始，我們用了 Switch... case 的方式去做，透過 case 的數值來做最佳化，以最佳化的方式去做，是為了大量測試。但這只能得擇一的測試結果。於是，我想到了可以用二進位的方式來做！我們可以指定一個參數值，用這個參數值去跑最佳化，但把參數值轉換成二進位表示，然後以二進位表示中，逐位數的 0 與 1 作為待測試出場方法的...開關。這樣做，就可以大量測試各種你想得到的出場方法去做組合，甚至把各種出場方法內使用不同的參數一併做測試了。於是，我們就需要一個把十進位轉成二進位的函數了。
自己做一個函數( _Decimal2Binary )，傳回文字類型。至於函數程式碼我就不解釋，請自行研究。網路上也能輕易的 Google 到這樣的演算法。本函數的第一個參數是十進位數值的輸入，第二個參數是轉換後輸出的總位數(前面補0)。
input: DecimalNumber(Numeric), outputDigits(Numeric);
array: quotinet[](0), remainder[](0);
var: j(0), bits(0), content(""), fillZero("");
if DecimalNumber>1 then begin
for j= 1 to 5000 begin
array_setmaxindex(quotinet, j+1);
array_setmaxindex(remainder, j+1);
if j=1 then
quotinet[1]= floor(DecimalNumber / 2)
else
quotinet[j]= floor(quotinet[j-1] / 2);
if j=1 then
remainder[1]= Mod(DecimalNumber, 2)
else
remainder[j]= Mod(quotinet[j-1], 2);
bits= j;
if quotinet[j]<2 then break;
end;
content="";
for j= 1 to bits begin
content= NumToStr( remainder[j], 0) + content;
end;
end;
fillZero="";
for j= 1 to outputDigits-StrLen(content)-1 begin
fillZero= fillZero+"0";
end;
if DecimalNumber>1 then
_Decimal2Binary= fillZero + "1" + content
else
_Decimal2Binary= fillZero + NumToStr( DecimalNumber, 0);
讓我們來測試一下這個函數的效果：
至於，怎麼用這個東西去建立大量測試多種出場"方法"的組合？等待後篇吧 ^_^。另外，用來測試出場方法，可不可以用來測試進場方法，甚至利用進場方法的"組合"？請看：http://www.yctseng.net/2016/04/blog-post_24.html
