A hard one...

OK here is the problem:
I have 4 interleaving loops like

n = 1
for a = 1 to 3
for b = a + 1 to 4
for c = b + 1 to 5
for d = c + 1 to 6
response.write(right("00" & CStr(n), 2) & ": " & a & "." & b & "." &
c & "." & d & "<br>")
n = n + 1
next
next
next
next

...providing the following output:

01: 1.2.3.4
02: 1.2.3.5
03: 1.2.3.6
04: 1.2.4.5
05: 1.2.4.6
06: 1.2.5.6
07: 1.3.4.5
08: 1.3.4.6
09: 1.3.5.6
10: 1.4.5.6
11: 2.3.4.5
12: 2.3.4.6
13: 2.3.5.6
14: 2.4.5.6
15: 3.4.5.6

I need an algorithm that would return the rank number (here from 1 to
15) if I enter any subsets of 4 numbers (from 1 to 6).
ex. if I enter r=rank(1, 3, 5, 6) then r=9

I need also the reverse function that would return the subset of 4
numbers for any rank given.
ex if I enter s=subset4(13) then s={2, 3, 5, 6}

The goal here is to get rid of the interleaving loops and that's why
both algorithms cannot be make by looping
and since all the values (here from 1 to 6 or 1 to 4 for the subsets)
can be increased significantly and would take too long to loop.

I have been working on that one for days now and I can't figure it
out...
I would REALLY appreciate some help!

Thank you in advance...

Cubik

McKirahan
Tue Feb 10 21:50:51 CST 2004

"Cubik" <cubik@yahoo.com> wrote in message
news:6ffe9f65.0402101930.2dda7813@posting.google.com...
> OK here is the problem:
> I have 4 interleaving loops like
>
> n = 1
> for a = 1 to 3
> for b = a + 1 to 4
> for c = b + 1 to 5
> for d = c + 1 to 6
> response.write(right("00" & CStr(n), 2) & ": " & a & "." & b & "." &
> c & "." & d & "<br>")
> n = n + 1
> next
> next
> next
> next
>
> ...providing the following output:
>
> 01: 1.2.3.4
> 02: 1.2.3.5
> 03: 1.2.3.6
> 04: 1.2.4.5
> 05: 1.2.4.6
> 06: 1.2.5.6
> 07: 1.3.4.5
> 08: 1.3.4.6
> 09: 1.3.5.6
> 10: 1.4.5.6
> 11: 2.3.4.5
> 12: 2.3.4.6
> 13: 2.3.5.6
> 14: 2.4.5.6
> 15: 3.4.5.6
>
> I need an algorithm that would return the rank number (here from 1 to
> 15) if I enter any subsets of 4 numbers (from 1 to 6).
> ex. if I enter r=rank(1, 3, 5, 6) then r=9
>
> I need also the reverse function that would return the subset of 4
> numbers for any rank given.
> ex if I enter s=subset4(13) then s={2, 3, 5, 6}
>
> The goal here is to get rid of the interleaving loops and that's why
> both algorithms cannot be make by looping
> and since all the values (here from 1 to 6 or 1 to 4 for the subsets)
> can be increased significantly and would take too long to loop.
>
> I have been working on that one for days now and I can't figure it
> out...
> I would REALLY appreciate some help!
>
> Thank you in advance...
>
> Cubik

Are you familiar with the Dictionary object? Try this:


Option Explicit
'*
Const cN = 13
Const cS = "1.3.5.6"
'*
Dim objDIC
Set objDIC = CreateObject("Scripting.Dictionary")
'*
dim a, b, c, d, n, s, x
n = 1
for a = 1 to 3
for b = a + 1 to 4
for c = b + 1 to 5
for d = c + 1 to 6
s = a & "." & b & "." & c & "." & d
x = x & right("00" & CStr(n), 2) & ": " & s & vbCrLf
objDIC.Add n, s
objDIC.Add s, n
n = n + 1
next
next
next
next
wscript.echo x
' 15: 3.4.5.6
'*
WScript.Echo cN & " = " & objDIC.Item(cN)
WScript.Echo cS & " = " & objDIC.Item(cS)
'*
Set objDIC = Nothing