[Fors1k]

Ну и совсем напоследок, абсолютный победитель нашего конкурса генераторов прямого перебора :

Код:

param(
    $pathOut = 'C:\temp\test.txt',
    $Symbols = 'abcdefghij',
    $Length  = 6
)cls

function Get-Combinations($pathOut,$Symbols,$Length){$cmd=@"
using System;using System.IO;
public class Combiner{
    public static string Combinations(string[] sym, string writePath){
        using (StreamWriter fs=new StreamWriter(writePath, false, System.Text.Encoding.Default)){
            foreach (string i in sym){//do`nfs.WriteLine (i/*i*/);}//end
        }return "Done!";}}
"@;[string[]]$sym=$Symbols.ToCharArray()
for($i=1;$i -lt $Length;$i++){$cmd=$cmd -Replace '//do', "`nforeach (string i$i in sym){//do"
$cmd=$cmd -Replace '//end', "}//end";$cmd=$cmd.Replace('/*i*/', "+i$i/*i*/")
}Add-Type $cmd;[Combiner]::Combinations($sym,$pathOut)}


(Measure-Command{

    Get-Combinations $pathOut $Symbols $Length

}).TotalSeconds

TotalSeconds : 0,2987353

еще

'abcdefghij0123' = 1,978599
'0123456789abcdefghij' = 17,4350418

[megaloman]

Из любопытства сравнил на своём ноуте:
скрипт PS Fors1k_m
скрипт PS YuS_2
скрипт CMD Megaloman
макрос VBA Excel
скрипт Vbs

Код:

6-0123456789
Fors1k_m	PS	 1.2s
Megaloman	vba Exc	 4.3s	
YuS_2		PS	 4.7s 
Megaloman	vbs	 9.3s	
Megaloman	CMD	43s	

6-0123456789abcdef
Fors1k_m	PS	 10.6s
Megaloman	vba Exc	 38s	
YuS_2		PS	124s 
Megaloman	vbs	151s

VBS (vba) прямой перебор

Код:

'Sub rrr2()
    Symb = "abcdefghij"
    Symb = "0123456789abcdef"
'    Symb = "0123456789"
    N = 6
    FileOut = "Z:\Box_Out\6-0123456789abcdef_vbs_line.txt"
    
    T = Timer
    
    NS = Len(Symb)
    ReDim Smb(NS - 1)
    
    For i = 1 To NS
        Smb(i - 1) = Mid(Symb, i, 1)
    Next
    
    Set F = CreateObject("Scripting.FileSystemObject").CreateTextFile(FileOut, True)
    Call SortLine(N, Smb, F, 0, "")
    F.Close
    
    MsgBox Timer - T
'End Sub
Sub SortLine(ii, SS, F, NN, sOut)
    NN1 = NN + 1
    
    If NN1 = ii Then
        For Each i In SS
            sOut1 = sOut1 + sOut + i + vbCrLf
        Next
        F.Write sOut1
    Else
        For Each i In SS
            sOut1 = sOut + i
            Call SortLine(ii, SS, F, NN1, sOut1)
        Next
    End If
End Sub

и, дополнительно,

VBS генератор строк с уникальными символами

Код:

'Sub rrr()
    Symb = "0123456789abcdef"
    N = 6
    FileOut = "Z:\Box_Out\vbs_uni_6-0123456789abcdef.txt"
    
    T = Timer
    
    NS = Len(Symb)
    For i = 1 To NS
        Smb = Smb + vbTab + Mid(Symb, i, 1)
    Next
    
    Set F = CreateObject("Scripting.FileSystemObject").CreateTextFile(FileOut, True)
    Call Sort(N, Smb, F, 0, "")
    F.Close
    
    MsgBox Timer - T
'End Sub

Sub Sort(ii, SS, F, NN, sOut)
    MS = Split(Mid(SS, 2), vbTab)
    NN1 = NN + 1
    
    If NN1 = ii Then
        For Each i In MS
            sOut1 = sOut1 + sOut + i + vbCrLf
        Next
        F.Write sOut1
    Else
        For Each i In MS
            sOut1 = sOut + i
            SS1 = Replace(SS, vbTab + i, "")
            Call Sort(ii, SS1, F, NN1, sOut1)
        Next
    End If
End Sub

[YuS_2]

абсолютный победитель »

это да.

TotalSeconds : 0,2987353 »

зависит от конфигурации железа и от версии PS...
при прочих равных, PS 5.1
TotalSeconds : 4,5936197
TotalSeconds : 1,049038
быстрее в 4,6 раз

для '0123456789abcdefghij'
TotalSeconds : 306,0904845
TotalSeconds : 42,464878
быстрее в 7,2 раз

т.е. с увеличением числа символов целевого набора, разница существенно возрастает...
а по сути:
64000000 - 42,5сек
считаем для 36 - 6:
2176782336 - 1445 сек/60= 24 мин.
уже более-менее вменяемый результат, который можно ещё ускорить, если использовать железо получше и PS v7.0

для 10^6 в PS 7.0
TotalSeconds : 3,4414547
TotalSeconds : 0,5906468

для 64000000 в PS 7.0
TotalSeconds : 214,1145746
TotalSeconds : 25,2777355

- как-то так...
файл, кстати, получается 488,2Мб

Из любопытства сравнил на своём ноуте: »

а powershell какой версии? Лучше для сравнения с vbs использовать 7.0

[megaloman]

YuS_2,

а powershell какой версии? »

5.1.14409.1005

Лучше для сравнения с vbs использовать 7.0 »

Подозреваю, разница будет еще больше.

[YuS_2]

Подозреваю, разница будет еще больше. »

можно сравнить, выше добавил тест для 20^6 и PS 7.0, на том же железе...

---------------
вот, собственно, практический результат для задачи из шапки:
36^6, PS v7.0, скрипт
TotalSeconds : 888,1523298
файл - 16,2Гб

[Fors1k]

зависит от конфигурации железа »

Мое железо 2008г выпуска.
Интересно увидеть результат у кого-нибудь на современном пк.

если использовать PS v7.0 »

Скачал из интереса PS v7. Результат и правда изменился:

10^6 = 2,1835635
36^6 = 391,1104797

VBS (vba) от megaloman, на моем железе:
10^6 = 3,387438

[YuS_2]

10^6 = 2,1835635 »

не сходится, должно быть гораздо быстрее... у меня 0,5 сек. Ваш скрипт...

[Fors1k]

не сходится »

Похоже, результат замера для какого-то другого количества символов скопировал)
Запустил еще раз:
10^6 = 0,2484363