PureBoard

Code: Alles auswählen

/* Find the smallest positive missing number in an array that contains
 * all positive integers
 */
int findMissingPositive(int arr[], int size)
{
    int i;
    
    // Mark arr[i] as visited by making arr[arr[i] - 1] negative. Note that
    // 1 is subtracted because index start from 0 and positive numbers start from 1
    for(i = 0; i < size; i++) {
        if (abs(arr[i]) - 1 < size && arr[abs(arr[i]) - 1] > 0) {
            arr[abs(arr[i]) - 1] = -arr[abs(arr[i]) - 1];
        }
    }
    
    // Return the first index value at which is positive
    for(i = 0; i < size; i++) {
        if (arr[i] > 0) {
            return i+1;  // 1 is added becuase indexes start from 0
        }
    }
    
    return size+1;
}

Code: Alles auswählen

DeclareModule IDAny
	Global NewMap *staticID()
	Global NewList *dynamicID()
	Declare.i newID(id.i = #PB_Any, *handle = -1)
	Declare.i freeID(id.i)
	Declare.i getHandle(id.i)
EndDeclareModule

Module IDAny
	Procedure.i newID(id.i = #PB_Any , *handle = -1)
		If (id = #PB_Any)
			If AddElement(*dynamicID())
				*dynamicID() = *handle
				ProcedureReturn @*dynamicID()
			Else
				ProcedureReturn #False
			EndIf
		ElseIf (id > 10000)
			Debug "Bitte keine statischen IDs über 10000 nutzen!"
			ProcedureReturn #False
		Else
			If (FindMapElement(*staticID(), Str(id)))
				*staticID() = *handle
			ElseIf (AddMapElement(*staticID(), Str(id), #PB_Map_NoElementCheck))
				*staticID() = *handle
			Else
				ProcedureReturn #False
			EndIf
			ProcedureReturn *handle
		EndIf
	EndProcedure
	
	Procedure.i freeID(id.i)
		If (id > 10000)
			;Geht davon aus, dass die id tatsächlich gültig ist.
			ChangeCurrentElement(*dynamicID(), id)
			DeleteElement(*dynamicID())
		ElseIf (id >= 0)
			DeleteMapElement(*staticID(), Str(id))
		EndIf
	EndProcedure
	
	Procedure getHandle(id.i)
		If (id > 10000)
			ProcedureReturn PeekI(id)
		ElseIf (id >= 0)
			ProcedureReturn *staticID(Str(id))
		EndIf
	EndProcedure
EndModule


Debug "IDAny"
UseModule IDAny

dynID1.i = newID(#PB_Any, 123)
dynID2.i = newID(#PB_Any, 456)
newID(0, 789)
newID(10, 999)

Debug "dynID1: " + dynID1
Debug "dynID2: " + dynID2
Debug "dynID1 handle: " + getHandle(dynID1)
Debug "dynID2 handle: " + getHandle(dynID2)
Debug "statID1 handle: " + getHandle(0)
Debug "statID2 handle: " + getHandle(10)

Code: Alles auswählen

Procedure NewMapId(Map id.s())
  Static key.s = ""
  Repeat 
    key = Str(ElapsedMilliseconds())
    result = FindMapElement(id(), key)
  Until Not(result)
  AddMapElement(id(), key)
EndProcedure





NewMap id.s()




For n = 1 To 20
  newMapId(id())
  Debug MapKey(id())
Next

Debug MapSize(id())