numbers combinations

Getting Started
1

Hi guys

i have 5 numbers as follow: 1,2,3,4,5

i need to make all possible combinations between them like this:

1-2
1-3
1-4
1-5
2-3
2-4
2-5
3-4
3-5
4-5
an display the result into a listbox

Do you have any idea on how to do that?

Thanks guy

2 
n=5
for i=1 to n-1
  for j=i+1 to n
    'i and j are your two numbers
  next
next
3

HI Robert

Pretty Cool

Thanks

4

Hi

Robert solution work fine, but i have the next question:

If i want to combine this numbers sequence as follow : 43-45-78-90-21 into

43-45
43-78
43-90
43-91
45-78
45-90
45-21
78-90
78-21
90-21

i believe that Robert solution will not work.

Any suggestion?

Thanks

5 
dim v() as string
dim i as integer
dim j as integer
v=split(string_of_number,"-")
for i=0 to v.ubound-1
for j=i+1 to v.ubound
//  v(i) and v(j) are your two numbers (as string values)
next j
next i
6

Thanks Dave

Very nice solution

Thans

7

Hi Dave

I have followed your suggestion:

[b]dim v() as string
dim i as integer
dim j as integer

v=split(txtUno.Text,"-")

for i=0 to v.ubound-1
for j=i+1 to v.ubound

  Listbox1.AddRow str(i) +"-" str(j))
  
  //  v(i) and v(j) are your two numbers (as string values)
next j

next i[/b]

but the result is not what im aspecting

if i put this sequence if numbers onto txtUno.text 33-44-55-66-77

im getting this as in the picture:

From where is getting different numbers of the combination

Thanks

8

Instead of making code bold, use the [code] tags to format it :slight_smile:
Your picture didn’t come through, what kind of output are you getting?

9

your image link is invalid

plus
NOT

Listbox1.AddRow str(i) +"-" + str(j)

but

Listbox1.AddRow v(i) +"-" + v(j)
10

Ok Guys

Thanks for the tips

11

I think you also need another + after the “-”

Listbox1.AddRow v(i) +"-"+ str(j))
12

And it should be

Listbox1.AddRow v(i) +"-"+ v(j)
13

Thanks Wayne, Dave and Tim

It works fine now

14

I didn’t help at all, but you’re welcome :smiley:
(I tried, but joined the thread late)

15

Tim

you help me on how to use better the forum tools… so thanks!

16

When I have some free time later I’ll put together a video covering the basics.

Edit: I was informed that there is actually a post about it https://forum.xojo.com/8761-post-formatting-and-tips :slight_smile:

17

Hi Tim

Thanks for your kindness ;-))