all possible cominations using 1 value

[gcue]

hello world

i have been looking through different examples of permutations but have not been able to find one which allows a required value

hope example makes sense

$master_value = "Z"

Global $value_list[4] = ["A", "B", "C", "D"]

so the possible combinations would be something like this (all would include the "master value")

Quote

 

Z,A

A,Z

Z,B

B,Z

Z,C

C,Z

Z,D

D,Z

Z,A,B

Z,B,A

A,Z,B

B,Z,A

B,A,Z

A,B,Z

Z,A,B,C

Z,B,C,A

Z,C,B,A

......

 

thank you in advance!

 

[Jos]

So what exactly is the question? I hope you're not asking for an script or something.

Jos

[gcue]

I am asking on a method on how to accomplish what i described.  Users are picking a business role and I'd like to be able to go through a list of other business role values (defined by the user) to store all possible combinations to an array which will later be used as possible filters in a check list.  Hope that makes sense

[Nine]

I would use recursion to get all the possible combinations and then save only the ones having the master value inside... 

[jchd]

Spoon-feeding will probably shorten this thread.

Local $master_value = "Z"
Local $value_list = ["A", "B", "C", "D"]
Local $a, $aa, $aRes[0]

For $i = 1 To UBound($value_list)
    $a = _ArrayCombinations($value_list, $i)
    _ArrayDelete($a, 0)
    For $j = 0 To UBound($a) - 1
        $aa = _ArrayPermute(StringSplit($a[$j] & $master_value, "", 3), ',')
        _ArrayDelete($aa, 0)
        _ArrayAdd($aRes, $aa)
    Next
Next
$ad($aRes)

 

[iamtheky]

<*snip - all wrong and would only serve to confuse, plus maybe not supposed to be helping yet>

Edited July 6, 2019 by iamtheky

[Nine]

I remember when I started at this site, mods were blasting me about providing code without at least a first effort from the OP.  Now I understand what is the concept of variable geometry...

Edited July 5, 2019 by Nine

[iamtheky]

tbf, gcue has like 2100 posts worth of effort.

[jchd]

@Nine, Some OPs have a record of making threads long lasting...

@iamtheky, the first code misses some combinations, e.g. BZ, CZ, ABDZ, ...

[jchd]

@iamtheky the second code has the same issue as your first.

[iamtheky]

yup, they both do. 

I had a feeling getting rid of the second loop wasnt going to be that easy.

[Nine]

1 minute ago, jchd said:

Some OPs have a record of making threads long lasting...

So what is the problem with that ?

3 minutes ago, iamtheky said:

tbf, gcue has like 2100 posts worth of effort.

Effort ?  With 9+, asking for code repeatedly is not what I would call it.

[jchd]

@Jos, sorry for that!

[iamtheky]

really by the +'s ?  I've been judging people by their warning points, and by height.

and also i was following the badged guy, and my answers were wrong anyway

[Jos]

10 hours ago, jchd said:

Spoon-feeding will probably shorten this thread.

Local $master_value = "Z"
Local $value_list = ["A", "B", "C", "D"]
Local $a, $aa, $aRes[0]

For $i = 1 To UBound($value_list)
    $a = _ArrayCombinations($value_list, $i)
    _ArrayDelete($a, 0)
    For $j = 0 To UBound($a) - 1
        $aa = _ArrayPermute(StringSplit($a[$j] & $master_value, "", 3), ',')
        _ArrayDelete($aa, 0)
        _ArrayAdd($aRes, $aa)
    Next
Next
$ad($aRes)

 

Not sure whether this will be considered spoon-feeding as the food isn't ready yet and still contains "uncooked bits".  

Jos

Edited July 6, 2019 by Jos

[jchd]

Yeah, some chunks might need some chewing 🐅

[mikell]

15 hours ago, iamtheky said:

really by the +'s ?  I've been judging people by their warning points, and by height.

Bah. Just place some jokes and you will get a lot of +'s . Not significant

BTW you should like this alternative, based on simple String* funcs only 

#Include <Array.au3>

Global $master = "Z", $text[5] = ["A", "B", "C", "D", $master], $s = ""

_LetsGo("")
$a = StringSplit(StringTrimRight($s, 1), "|", 2)
_ArrayDisplay($a)

Func _LetsGo($string)
   For $i = 0 to UBound($text)-1
       If not StringInStr($string, $text[$i]) Then 
            $tmp = $string & "," & $text[$i] 
            If StringInStr($tmp , $master) and StringLen($tmp)>2 Then 
               $s &= StringTrimLeft($tmp, 1) & "|"
           EndIf
            _LetsGo($tmp)
       EndIf
   Next
EndFunc

 

Edited July 6, 2019 by mikell

[jchd]

Needs more chewing

[mikell]

It strictly fits the OPs requirements from post #1 

[gcue]

Works great thank you!