anchor.diff:  unit BaseNTests;
   
  -{$ZEROBASEDSTRINGS ON}
   {$IF CompilerVersion >= 28}  // XE7 and Above
   {$DEFINE SUPPORT_PARALLEL_PROGRAMMING}
   {$ENDIF}
  
positive.code:   Assert.AreEqual(13, TBaseN.GetOptimalBitsCount2(91, charsCountInBits));
  
    builder := TStringBuilder.Create;
    for i := 2 to 256 do
    begin
      bits := TBaseBigN.GetOptimalBitsCount2(UInt32(i), charsCountInBits, 512);
      tempDouble := (bits * 1.0);
      ratio := tempDouble / charsCountInBits;
  
      builder.AppendLine(IntToStr(bits) + '	' + UIntToStr(charsCountInBits) + '	'
        + FormatFloat('0.0000000', ratio));
    end;
  
    str := builder.ToString();
  
  end;
  
  
negative.code: {$ENDIF}
  {$IF DEFINED (SUPPORT_PARALLEL_PROGRAMMING)} result := StringReplace(TNetEncoding.Base64.EncodeBytesToString(temp), sLineBreak, '', [rfReplaceAll]); {$ELSE}
    try
      result := StringReplace(String(EncodeBase64(temp.Memory, temp.Size)),
        sLineBreak, '', [rfReplaceAll]);
    finally
      temp.Free;
    end;
  