function iscolorful(n, base=10)
    # If the number is less than 10, it is automatically considered colored.
    0 <= n < 10 && return true
    
    # We get an array of digits of a number
    dig = digits(n, base=base)

    # We exclude cases: presence of 1 or 0,
    # or duplicate numbers – such numbers are definitely not colored.
    (1 in dig || 0 in dig || !allunique(dig)) && return false

    # We create a set of unique values, starting with individual digits.
    products = Set(dig)

    # We go through all substrings of length >= 2
    # i is the length of the substring (from 2 to the length of the number)
    # j is the starting position of the substring.
    for i in 2:length(dig), j in 1:length(dig)-i+1
        # Calculating the product of the digits in the current group
        p = prod(dig[j:j+i-1])

        # If such a value has already been encountered, the number is not colored.
        p in products && return false
        
        # Adding a new piece to the set
        push!(products, p)
    end

    # Updating the global variable of the maximum color number found
    if n > largest
        global largest = n
    end

    return true
end

# A global variable for storing the largest colored number
largest = 0;

function testcolorfuls()
    println("Colored numbers for ranges 1:25, 26:50, 51:75, and 76:100:")

    # Cycle through the numbers from 1 to 100
    for i in 1:100
        # If the number is colored, we output it with formatting.
        iscolorful(i) && print(rpad(i, 5))

        # Line break every 25 numbers
        i % 25 == 0 && println()
    end

    csum = 0 # A common color number counter

    # Counting the colored numbers in the ranges:
    # [0..9], [10..99], ..., [10^7...10^8)
    for i in 0:7
        # The beginning and ending elements of the interval
        j, k = i == 0 ? 0 : 10^i, 10^(i+1) - 1

        # We count the number of colored numbers in the interval
        n = count(ii -> iscolorful(ii), j:k)

        csum += n

        # Printing the result
        println("The number of colored numbers between $(lpad(j,9)) and $(lpad(k,9)) is $n.")
    end

    # Final message
    println("The maximum possible color number is $largest.")
    println("The total number of colored numbers is $csum.")
end

testcolorfuls()