В отличие от других участников дискусии в "витке" Пана я нахожусь в наиболее "облегченной"
весовой категории по отношению к программированию. Вспоминаю 1-й курс, когда на
протяжении одного семестра нам преподавали эту науку - язык BASIC. Я кстати тогда впервые
увидел мышь у компьютера - настоящее чудо!!! В принципе этот язык наверняка уже устарел.
Причем от своего друга, занимающегося программированием, я слышал, что зачастую инновация
в этой области устаревает еще не дойдя до внедрения. Однако в одном из ранних
изданий "Теория БД" (конец 80-х) Питера Гриффина, который до сих пор считается наивысшим
авторитетом в области математической базы БД, я нашел программку на том же бородатом
бэйзике, которая также решает необходимую задачку:
10 FOR I= 1 TO 10
20 IF W(I)=0 THEN 270
30 B = B*W(I)/A
40 W(I)=W(I)-1
50 T =T+I
60 IF T >16 THEN 130
70 IF (T-11)*(T-7)>0 THEN 170
80 IF (I-1)*(J-1)=0 THEN 150
90 FOR L= 1 TO K
100 IF A(L)= 1 THEN 150
110 NEXT TO L
120 GO TO 170
130 F(T)=F(T)+B
140 GO TO 240
150 F(T+10)=F(T+10)+B
160 GO TO 240
170 A=A-1
180 K=K+1
190 A(K)=I
200 GO SUB 10
210 I=A(K)
220 K=K-1
230 A=A+1
240 W(I)=W(I)+1
250 T=T-I
260 B=B*A/W(I)
270 NEXT I
280 RETURN
где А = кол-во карт в колоде,
T=J=1-ая карта дилера,
W(I)=кол-во карт номиналом I,
К=0
В=1
F(X)=вероятность достижения общего кол-ва Х очков.
Возможно в/у программа уже не актуальна, но я хочу дать Саше шанс перепроверить свои
вычисления разными способами. Саша, кстати, одно из неписанных правил счетчика - не лишать
лоха его иллюзий относительно игры, так как если вообще не останется лохов, то не останется и
БД, так как эта игра станет уже невыгодна для казино. (Если для тебя слово лох является
обидным, можешь его заменить на любой другой, удобный для твоего ЭГО термин.) В этой связи
я в принципе уже сам не вижу мотивации для дальнейшего спасения тебя от тебя же самого (хотя
мне и импонирует твой подход к благотворительности).
