Список проголосовавших за комментарий "Интеграл букв: все комбинации букв всех слов<br/> <br/> Русские буквы: 32 без буквы Ё надеюсь правильно 192=А и 223=Я<br/> плюс промежуточный файл выявляет лишние буквы<br/> <br/> Массив свыше 400'000 слов исследован за 20 секунд<br/> записывая на RAM-disk для экономии<br/> <br/> Частые сочетания:<br/> <br/> 269466 А О<br/> 255418 Е О<br/> 252248 А И<br/> 249166 Н О<br/> 245402 А Р<br/> 242352 И О<br/> 239686 О Р<br/> 238594 А Е<br/> 237210 Е Н<br/> 229864 А Н<br/> ...<br/> 542 Ж Ъ<br/> 536 Ж Э<br/> 462 Ж Ф<br/> 348 Ф Щ<br/> 232 Щ Ъ<br/> 222 Ч Ъ<br/> 106 Ф Ъ<br/> 106 Щ Э<br/> 88 Ц Ъ<br/> 56 Ъ Э<br/> <br/> Редкие сочетания упорядочиваются вниз<br/> <br/> 'izhitsa.bas<br/> '=32*31/2 = 31*16 = 496<br/> DIM a(32, 32)<br/> OPEN «12345ru.txt» FOR INPUT AS #1<br/> OPEN «321ru.txt» FOR OUTPUT AS #2<br/> OPEN «54321ru.txt» FOR OUTPUT AS #3<br/> start = TIMER<br/> z = 1: FOR a = 1 TO 2 '4'30028<br/> INPUT #1, s$: s = LEN(s$) ': PRINT s$ ' or all words in memory<br/> FOR m = 1 TO s — 1: FOR n = m + 1 TO s<br/> IF MID$(s$, m, 1) = MID$(s$, n, 1) THEN s$ = MID$(s$, 1, n — 1) + MID$(s$, n + 1, LEN(s$))<br/> NEXT: NEXT: s = LEN(s$)<br/> LOCATE 1, 1: PRINT z, s$; " ";: PRINT #2, s$: z = z + 1<br/> <br/> FOR x = 1 TO s: FOR y = 1 TO s<br/> v = ASC(MID$(s$, x, 1)) — 191<br/> w = ASC(MID$(s$, y, 1)) — 191<br/> a(v, w) = a(v, w) + 1: NEXT: NEXT<br/> <br/> FOR u = 1 TO 31: FOR v = u + 1 TO 32<br/> a(u, v) = a(u, v) + a(v, u): a(v, u) = 0<br/> NEXT: NEXT<br/> NEXT: finish = TIMER<br/> <br/> z = 1: FOR i = 1 TO 31: FOR j = i + 1 TO 32<br/> PRINT z, a(i, j), CHR$(i + 191), CHR$(j + 191)<br/> PRINT #3, z; CHR$(9); a(i, j); CHR$(9); CHR$(i + 191); CHR$(9); CHR$(j + 191)<br/> z = z + 1: NEXT: PRINT: PRINT #3,: NEXT<br/> PRINT finish — start<br/> PRINT #2, finish — start<br/> <br/> Integral of letters: all combinations of letters of all words<br/> <br/> Given a dictionary of thousands of words without extra characters<br/> 12345.txt<br/> <br/> My program decomposes each word into letters<br/> and creates a table 54321.txt<br/> number of combinations of all letters<br/> <br/> =26*25/2 = 25*13 = 325<br/> <br/> While sorting is not implemented<br/> I ordered in Excel"