Neznáte program, který umí vytvářet takto náhodné kombinace čísel?

Napr Excel (ale pár minút to trvá - počet vygenerovaných, na duplicitu odkontrolovaných kombinácií sa zapisuje do bunky B2)

Sub Komb()

Dim Komb As String
Dim Prvok As String


Columns("A:A").NumberFormat = "@"

MinValue = 1
MaxValue = 2

Randomize

For j = 1 To 4000
Range("B1") = j
    
Opakuj:
    For i = 1 To 34
        Prvok = Format(Int((MaxValue - MinValue + 1) * Rnd) + MinValue, "@")
        Komb = Komb & Prvok
    Next i
    
    Range("A" & j) = Komb
    
    If j > 1 Then
        For k = 1 To j - 1
            If Range("A" & j) = Range("A" & k) Then GoTo Opakuj
        Next k
    End If
    
        Komb = ""
Next j

MsgBox "Hotovo"

End Sub

P.S. určite existujú rafinované, na rýchlosť vykonania neporovnateľne lepšie algoritmy, ale keďže ich nepoznám, tak som napísal postup, akým by to manuálne robil normálny človek

Pres PowerShell by to slo mozna na jeden radek, tusim ze s apepplet Get-Random

Tak čo ma necháš trápiť?!?!?!?!

To si nemohol napísať skôr?

Nevim, tusim ze prikaz na zaklade typu Get-Random (Dej-nahodny) jako :

Get-Random -min -max -count

* A jeste to hodit do Input .TXT nebo proc né HTML
" minimum maximum kolikrat opakovat" by mohlo stacit, z hlavy nevim, tva odpoved neni spatna a navic kvalitnejsi .

nepoznám, ale?
Je tam kontrola duplicity?
Je tam, že kombínácií o dĺžke 34 znakov má byť 4000?

Asi aj to by chcelo ešte ošetriť a týmpádom sa to predĺži a časovo... neviem...

V C# např:

class Program
{
    static void Main(string[] args)
    {
        var random = new Random();
        var numbers = new HashSet<long>();
        using (var sw = new StreamWriter("numbers.txt"))
        {
            for (var i = 0; i < 4000; i++)
            {
                long number;
                do
                {
                    number = (long)(17179869184 * random.NextDouble());
                }
                while (numbers.Contains(number));
                numbers.Add(number);
                sw.WriteLine(Convert.ToString(number, 2).Replace('0', '2').PadLeft(34, '2'));
            }
        }
    }
}

Skvělé! Přesně co jsem potřeboval, děkuji moc. Děkuji všem za rady a pomoc.

Tak si prosíme fajočku za vyriešený problém

Pokud je to pro Tebe docela důležité, měl bys napsat, jak by Ti měl programátor výsledek odevzdat. Např. jestli stačí html výpis nebo csv.
Po upřesnění zadání by měl úkol zvládnout každý elév levou zadní.