Hollywood forums

Code: Select all

nums = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Sort(nums, Function(a, b) Return(Rnd(1)) EndFunction)
For k = 0 To 9
   DebugPrint(nums[k])
Next

Code: Select all

nums = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
?Sort(nums, Function(a, b) Return(Rnd(2)) EndFunction)
For k = 0 To 9
	error=?DebugPrint(nums[k])
	If error<>Nil Then DebugPrint("Error")
Next

Code: Select all

nums = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Sort(nums, Function(a, b) Return(Rnd(2)) EndFunction) 

Code: Select all

@DISPLAY 0, {HIDDEN = True}

nums = {"One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten"}

Function Shuffler(x, y)
	Local a=x, b=y
	Return(Rnd(2) > 0)
EndFunction

Sort(nums, Shuffler)
ListRequest("Shuffled", "Click OK to continue or Cancel to also continue", nums)

Code: Select all

@DISPLAY 0, {HIDDEN = True}
@VERSION 7,0

/*
 *	Table shuffler
 *
 *	Parameter:
 *	a	Table to shuffle
 *
 *	Returns:
 *		Shuffled table
 */
Function p_ShuffleTable(a)
	Local key, content, k, max, iter=Nil, Nil, {}, 0, Nil
	; create an array of the keys
	Repeat
		iter = NextItem(a, iter)
		If GetType(iter) = #NIL Then Break
		k[max] = iter
		max = max + 1
	Forever
	; Randomize table
	For key, content In Pairs(a)
		iter = k[ Rnd(max) ]
		; no point in skipping redundant keys if they are Unicode
		; the CompareStr function is probably more expensive than the swap
		a[key] = a[iter]
		a[iter] = content
	Next
	Return(a)
EndFunction

/*
 *	Array shuffler
 *
 *	Parameter:
 *	a	array to shuffle
 *
 *	Returns:
 *		Shuffled array
 */
Function p_ShuffleArray(a)
	Local key, content, iter, max=Nil, Nil, Nil, ListItems(a)
	; Randomize array
	For key, content In IPairs(a)
		iter = Rnd(max)
		If (iter <> key)
			a[key] = a[iter]
			a[iter] = content
		EndIf
	Next
	Return(a)
EndFunction


nums = {"One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten"}
letters = {}
strings={}
letters["a"] = "apple"
letters["b"] = "baking"
letters["c"] = "catapult"
letters["d"] = "destination"
letters["e"] = "eggplant"
letters["f"] = "farmer"
letters[0] = "what?"
letters[chr(228, #ENCODING_UTF8)] = "etc."

ListRequest("Shuffled", "Click OK or Cancel to continue", p_ShuffleArray(nums) )
letters = p_ShuffleTable(letters)
ForEach(letters, Function(k,v)
	InsertItem(strings, k.."="..v)
EndFunction)
Sort(strings, Function(a,b)
	CompareStr(a,b)
EndFunction)
ListRequest("Shuffled", "Click OK or Cancel to continue", strings)