Combo of chars

[Giordano]

hi guys, sorry for my bad english;

I'm trying to do a script where i put in for example 1 and the script will show me

0 1 2 3 4 5 6 7 8 9

if i put in 2

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 .... 99

if i put in 3

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 ... 999

AND THE ANSWER IS:

is possible do this with alphabet?

put in 1 return:

A B C D E F G H I J K L M N .... Z

put in 2 return:

A B C D E F G H I L M N ... Z AA AB AC AD AE ... ZZ

and putting 3 return:

A B C D E F G H I L M N ... Z AA AB AC AD AE ... ZZ AAA AAB AAC AAD .... ZZZ

[Richard Robertson]

Short answer, yes it's possible. You just have to understand ASCII/unicode values.

[Zedna]

Here is something for start:

$s = ''
For $i = 1 To 10
    $s &= Chr($i+47)
Next
MsgBox(0,'',$s)

[Giordano]

Here is something for start:

$s = ''
For $i = 1 To 10
    $s &= Chr($i+47)
Next
MsgBox(0,'',$s)

thanks this will be useful in further! now i was trying to calculate the number of combinations using this:

$Combinations = (factorial($n + $k - 1)) / (((factorial($k))*factorial((n-1)))

but i can't find the function FACTORIAL (n!)

Edited November 1, 2008 by Giordy

[Zedna]

but i can't find the function FACTORIAL (n!)

Func Fakt($n)
    If $n = 0 Then Return 1
    
    $res = 1
    For $i = 1 To $n
        $res *= $i
    Next
    
    Return $res
EndFunc

[Giordano]

thanks this will be useful in further! now i was trying to calculate the number of combinations using this:

$Combinations = (factorial($n + $k - 1)) / (((factorial($k))*factorial((n-1)))

but i can't find the function FACTORIAL (n!)

OK THIS IS A GOOD START:

expandcollapse popup

#include<string.au3>
#include<math.au3>

$Elementi = "ABCDEF"
$NumElem = StringLen($Elementi)
$Posti = 2

$n = $NumElem
$k = $Posti

; (n + k - 1)! / ((k!(n-1)!)

$membro1 = _MathFactorial($n + $k - 1)
$membro2 = _MathFactorial($k)
$membro3 = _MathFactorial($n-1)

$Combinazioni = ($membro1) / (($membro2)*$membro3)

MsgBox(0,0,$Combinazioni)



Func _MathFactorial($mfFactor, $mfStop = 0)
    If Not (StringIsInt($mfFactor)) OR (Int($mfFactor) < 0) Then
        SetError(1)
        Return 0
    Else
        $mfFactor = Int($mfFactor)
    EndIf
    If $mfFactor = 0 Then Return 1
    
    Dim $return = 1
    While $mfFactor > $mfStop
        $return *= $mfFactor
        $mfFactor -= 1
    WEnd
    Return $return
EndFunc

now i have a limit of 17 characters

Edited November 1, 2008 by Giordy

[Giordano]

this is cool i made what i was trying to do!

expandcollapse popup

$Elementi = "ABC"
$NumElem = StringLen($Elementi)

$ArrayElementi = StringSplit($Elementi,"")

For $Posti = 1 To 8
Switch $Posti
    
    Case 1 
        
        For $q=1 To $NumElem
            $string = $ArrayElementi[$q]
            Funzione()
        Next
        
    Case 2
        
        For $q=1 To $NumElem
            For $w=1 To $NumElem
                $string = $ArrayElementi[$q]&$ArrayElementi[$w]
                Funzione()
            Next
        Next
        
    Case 3
        
        For $q=1 To $NumElem
            For $w=1 To $NumElem
                For $e=1 To $NumElem
                    $string = $ArrayElementi[$q]&$ArrayElementi[$w]&$ArrayElementi[$e]
                    Funzione()
                Next
            Next
        Next
        
    Case 4
        
        For $q=1 To $NumElem
            For $w=1 To $NumElem
                For $e=1 To $NumElem
                    For $r = 1 To $NumElem          
                        $string = $ArrayElementi[$q]&$ArrayElementi[$w]&$ArrayElementi[$e]&$ArrayElementi[$r]
                        Funzione()
                    Next
                Next
            Next
        Next
        
    Case 5
        
        For $q=1 To $NumElem
            For $w=1 To $NumElem
                For $e=1 To $NumElem
                    For $r = 1 To $NumElem
                        For $t = 1 To $NumElem
                            $string = $ArrayElementi[$q]&$ArrayElementi[$w]&$ArrayElementi[$e]&$ArrayElementi[$r]&$ArrayElementi[$t]
                            Funzione()
                        Next
                    Next
                Next
            Next
        Next

    Case 6
        
        For $q=1 To $NumElem
            For $w=1 To $NumElem
                For $e=1 To $NumElem
                    For $r = 1 To $NumElem
                        For $t = 1 To $NumElem
                            For $y = 1 To $NumElem
                                $string = $ArrayElementi[$q]&$ArrayElementi[$w]&$ArrayElementi[$e]&$ArrayElementi[$r]&$ArrayElementi[$t]&$ArrayElementi[$y]
                                Funzione()
                            Next
                        Next
                    Next
                Next
            Next
        Next
        
    Case 7

        For $q=1 To $NumElem
            For $w=1 To $NumElem
                For $e=1 To $NumElem
                    For $r = 1 To $NumElem
                        For $t = 1 To $NumElem
                            For $y = 1 To $NumElem
                                For $u = 1 To $NumElem
                                    $string = $ArrayElementi[$q]&$ArrayElementi[$w]&$ArrayElementi[$e]&$ArrayElementi[$r]&$ArrayElementi[$t]&$ArrayElementi[$y]&$ArrayElementi[$u]
                                    Funzione()
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
        
    Case 8

        For $q=1 To $NumElem
            For $w=1 To $NumElem
                For $e=1 To $NumElem
                    For $r = 1 To $NumElem
                        For $t = 1 To $NumElem
                            For $y = 3 To $NumElem
                                For $u = 1 To $NumElem
                                    For $i = 1 To $NumElem
                                        $string = $ArrayElementi[$q]&$ArrayElementi[$w]&$ArrayElementi[$e]&$ArrayElementi[$r]&$ArrayElementi[$t]&$ArrayElementi[$y]&$ArrayElementi[$u]&$ArrayElementi[$i]
                                        Funzione()
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next

EndSwitch

Next

Func Funzione()
    
    ToolTip($string)
EndFunc