numbers in array

[Silvio.Falconi]

I have an array

anumbers:= {1,1,1,7,1}

I want to know if: (starting from the left)

1) at least the first three numbers are the same sample -> {1,1,1,7,1}
2) at least the first four numbers are the same sample -> {1,1,1,1,9}
3) at least 5 numbers are the same sample -> {1,1,1,1,1}

and it must return me a value logic wich is true
but it is possible I can have all logic values when the numbers are {1,1,1,1,1}

[ukoenig]

Silvio,

I think the solution / calculation You are looking for ?
I tested all possible combinations
In case from left 3 equal numbers You get .T. for the array-elements
otherwise less 3 equal numbers all 5 elements are .F..
In case You need the .T. of the elements as well for 3 not completed
there is no problem. 5 times .F. just means NOT completed.
From the calculation You can build any logic You need.

ONLY test 2 is completed !!!

Code: Select all  Expand view

FUNCTION TESTARRAY(aGet, aSay)
LOCAL i, m, n, x

/*
REQUESTED

I have an array
anumbers:= {1,1,1,7,1}
I want to know if: (starting from the left)

1) at least the first three numbers are the same sample -> {1,1,1,7,1}
2) at least the first four numbers are the same sample -> {1,1,1,1,9}
3) at least 5 numbers are the same sample -> {1,1,1,1,1}

and it must return me a value logic wich is true
but it is possible I can have all logic values when the numbers are {1,1,1,1,1}
*/

I := 1
FOR I := 1 TO 5
    aSay[I] := .F. // Results
NEXT

i := 1
n := aGet[1]           // first number
m := 0                  // count same numbers from left
x := n                 // number
FOR I := 1 TO 5
    IF I > 1           // count from 2. value
        x := aGet[I]
    ENDIF
    IF x = n         
        m++           // count if same number
    ELSE
        EXIT
    ENDIF
NEXT

MsgAlert( m, "same following Numbers" )
i := 1
FOR I := 1 TO 5
    IF m >= 3 .and. I <= m
        aSay[I] = .T. // equal fields are .T. only if counter >= 3
    ENDIF
NEXT

RETURN NIL
 

best regards
Uwe

[Silvio.Falconi]

I found another symple solution
for sample to contro the 3 numbers

// for 3x
IF nNumbers[1]== nNumbers[2] .and. nNumbers[1]==nNumbers[3]
l3x:= .t.
lplinestring[z][1]:= l3x
Endif



this is the sample :
sample combination for 25 combination strings

Local aline := {{1,3,6,7,1},;
{3,1,6,1,9},;
{9,3,1,7,9}}