RosettaCodeData/Task/Call-a-function-in-a-shared.../FutureBasic/call-a-function-in-a-shared...

12 lines
230 B
Plaintext

include "tlbx GameplayKit.incl"
UInt64 randomInteger
NSUInteger i
for i = 1 to 20
randomInteger = fn GKLinearCongruentialRandomSourceSeed( fn GKLinearCongruentialRandomSourceInit )
print randomInteger
next
HandleEvents