Solved

combination algoryth non-recursive

Posted on 2004-03-31
8
245 Views
Last Modified: 2010-04-05
Hi people, I want to make combination in 15 numbers (range number in 1 .. 25) without repetition using a algoryth non-recursive, because it is much more fast than recursive mode.

so the display would be:

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
1,2,3,4,5,6,7,8,9,10,11,12,13,14,16
1,2,3,4,5,6,7,8,9,10,11,12,13,14,17
..
..
..
1,2,3,4,5,6,7,8,9,10,11,12,13,14,50
1,2,3,4,5,6,7,8,9,10,11,12,13,15,16
1,2,3,4,5,6,7,8,9,10,11,12,13,15,17
....

Thanks

0
Comment
Question by:emu10k1
  • 3
  • 3
  • 2
8 Comments
 
LVL 17

Expert Comment

by:mokule
ID: 10727071
const
  RANGE= 25
  NUMBERS=15;
var
   ind: array[1..15] of integer;
for ind[1] := 1 to RANGE-NUMBERS do
  for ind[2] := ind[1]+1 to RANGE-NUMBERS+1 do
    for ind[3] := ind[2]+1 to RANGE-NUMBERS+2 do
...

 
0
 
LVL 17

Accepted Solution

by:
mokule earned 500 total points
ID: 10727183
Correction :-)
const
  RANGE= 25;
  NUMBERS=15;
var
   i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15:integer;
begin
for i1 := 1 to RANGE-NUMBERS do
  for i2 := i1+1 to RANGE-NUMBERS+1 do
    for i3 := i2+1 to RANGE-NUMBERS+2 do
    ;
0
 
LVL 26

Expert Comment

by:Russell Libby
ID: 10727184

If the ranges are in bytes, you could also use the following:

const
  BYTE_MIN       =  1;
  BYTE_MAX       =  25;
  BYTESET_SIZE   =  15;

type
  TByteSet       =  Array [0..Pred(BYTESET_SIZE)] of Byte;

var
  ByteSet:       TByteSet;

procedure  SeedByteSet(Bytes: Array of Byte);
function   IncByteSet: TByteSet;

implementation

function IncByteSet: TByteSet;
var  dwIndex:    Integer;
     cbVal:      Byte;
begin

  // Set result
  result:=ByteSet;

  dwIndex:=Pred(BYTESET_SIZE);
  while (dwIndex >= 0) do
  begin
     if (ByteSet[dwIndex] >= BYTE_MAX) then
        Dec(dwIndex)
     else
     begin
        Inc(ByteSet[dwIndex]);
        break;
     end;
  end;

  // Check for wrapping
  if (dwIndex < 0) then FillChar(ByteSet, SizeOf(ByteSet), BYTE_MIN);

end;

procedure SeedByteSet(Bytes: Array of Byte);
var  dwIndex:    Integer;
     cbVal:      Byte;
begin

  // Set the starting byte set
  FillChar(ByteSet, SizeOf(ByteSet), BYTE_MIN);

  // Iterate the bytes passed in
  for dwIndex:=0 to High(Bytes) do
  begin
     // Get the byte
     cbVal:=Bytes[dwIndex];
     // Range check
     if (cbVal = 0) or (cbVal > BYTE_MAX) then cbVal:=BYTE_MIN;
     // Only use 15 of the total bytes in the array
     if (dwIndex > Pred(BYTESET_SIZE)) then break;
     ByteSet[dwIndex]:=cbVal;
  end;

end;

------

  SeedByteSet([1,2,3,4,5,6,7,8,9,10,11,12,13,14,15]);
 
  // Call IncByteSet to increment the numbers starting from the right. If all
  // numbers hit max, then the array will be rolled over and each byte will
  // be set to min value.
  IncByteSet;


Regards,
Russell

0
 
LVL 26

Expert Comment

by:Russell Libby
ID: 10727310
Ignore my post, I should have double checked the iterative rollover (and didn't)

Russell
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:emu10k1
ID: 10727387
mokule: I need a code without repetition, you code generate:

1-2-3-4-5-6-7-8-9-10-11-12-13-14-15
1-2-3-4-5-6-7-8-9-10-12-11-13-14-15 // the same, the 12 trade the place with 11



I use:

const
  RANGE= 25;
  NUMBERS=15;
var
   i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15:integer;
   List: String;
begin
for i1 := 1 to RANGE-NUMBERS do
  for i2 := i1+1 to RANGE-NUMBERS+1 do
    for i3 := i2+2 to RANGE-NUMBERS+2 do
      for i4 := i3+3 to RANGE-NUMBERS+3 do
        for i5 := i3+4 to RANGE-NUMBERS+4 do
          for i6 := i3+5 to RANGE-NUMBERS+5 do
            for i7 := i3+6 to RANGE-NUMBERS+6 do
              for i8 := i3+7 to RANGE-NUMBERS+7 do
                for i9 := i3+8 to RANGE-NUMBERS+8 do
                  for i10 := i3+9 to RANGE-NUMBERS+9 do
                    for i11 := i3+10 to RANGE-NUMBERS+10 do
                      for i12 := i3+11 to RANGE-NUMBERS+11 do
                        for i13 := i3+12 to RANGE-NUMBERS+12 do
                          for i14 := i3+13 to RANGE-NUMBERS+13 do
                            for i15 := i3+14 to RANGE-NUMBERS+14 do
                            begin
                              List:=Format(
                                '%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d',
                                  [i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12,
                                    i13, i14, i15]);
                              Application.ProcessMessages;
                            end;

end;
0
 

Author Comment

by:emu10k1
ID: 10727413
mokule: sorry, I didn't put i2+1, i3+1, i4+1 , wait... I'm testing now...
0
 
LVL 17

Expert Comment

by:mokule
ID: 10727467
Sorry, one more correction :-)
for i1 := 1 to RANGE-NUMBERS+1 do
  for i2 := i1+1 to RANGE-NUMBERS+2 do
    for i3 := i2+1 to RANGE-NUMBERS+3 do
      for i4 := i3+1 to RANGE-NUMBERS+4 do
        for i5 := i4+1 to RANGE-NUMBERS+5 do
          for i6 := i5+1 to RANGE-NUMBERS+6 do
          for i7 := i6+1 to RANGE-NUMBERS+7 do
          for i8 := i7+1 to RANGE-NUMBERS+8 do
0
 

Author Comment

by:emu10k1
ID: 10727492
yes, I already fix this... thanks anyway...

const
  RANGE= 25;
  NUMBERS=15;
var
   i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15:integer;
begin
for i1 := 1 to RANGE-NUMBERS+1 do
  for i2 := i1+1 to RANGE-NUMBERS+2 do
    for i3 := i2+1 to RANGE-NUMBERS+3 do
      for i4 := i3+1 to RANGE-NUMBERS+3 do
        for i5 := i4+1 to RANGE-NUMBERS+5 do
          for i6 := i5+1 to RANGE-NUMBERS+6 do
            for i7 := i6+1 to RANGE-NUMBERS+7 do
              for i8 := i7+1 to RANGE-NUMBERS+8 do
                for i9 := i8+1 to RANGE-NUMBERS+9 do
                  for i10 := i9+1 to RANGE-NUMBERS+10 do
                    for i11 := i10+1 to RANGE-NUMBERS+11 do
                      for i12 := i11+1 to RANGE-NUMBERS+12 do
                        for i13 := i12+1 to RANGE-NUMBERS+13 do
                          for i14 := i13+1 to RANGE-NUMBERS+14 do
                            for i15 := i14+1 to RANGE-NUMBERS+15 do
                            begin
                              ListBox1.Items.Add(Format(
                                '%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d-%.02d',
                                  [i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12,
                                    i13, i14, i15]));
                              Application.ProcessMessages;
                            end;

end;

It works very well... thanks man :)
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Windows Drag & Drop Location 2 94
How to convert wav to mp3 in delphi 9 169
select query - oracle 16 91
IdTCPClient and IdTCPServer exchanging data on desktops and not Android 11 90
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

929 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now