haku6luku.jl

using StatsBase
# valitaan joukosta a uniikkeja kuuden luvun jonoja
a=[71, 22, 51, 6, 53, 49, 69, 70, 48, 98, 20, 75, 0, 25, 19, 81, 99, 46, 31, 29, 7, 73, 55, 18, 64, 37, 33, 14, 11, 84, 21]
# etsi n kpl 6 luvun ryhmiä joiden summa > raja
function haku(n,a,raja)
    # n = kuusikoiden lukumäärää
    # a = lukujoukko josta valitaan kuusikko
    # raja = kuusikon summa
    kuutoset = []
    b = sort(sample(a,6,replace=false))
    while sum(b) <= raja
        b = sort(sample(a,6,replace=false))
    end # löydetään eka kuusikko
    push!(kuutoset,b) # tallennetaan
    j = 1 # laskee löydettyjen uniikkien kuusikkojen määrää
    for i = 2:n
        b = sort(sample(a,6,replace=false))
        while sum(b) < raja
            b = sort(sample(a,6,replace=false))
        end
        # löydetty yli 500 summainen, katsotaan onko aiemman duplikaatti
        duplicat = false # ei duplikaattia
        for k = 1 : j
            if b == kuutoset[k]
                duplicat = true # duplikaatti
            end
        end
        if duplicat == false
            push!(kuutoset,b) # lisättiin listaan
            j += 1 # kirjaa löydettyjen kuusikoiden lukumäärää
        end
    end
    println("löydettyjä kuusikoita ",j)
    return kuutoset
end