FiveTech Support Forums

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