Data update

Task/Atomic-updates/FutureBasic/atomic-updates.basic

@@ -0,0 +1,50 @@
+local fn PopulateArrayWithRandomNumbers
+  NSUInteger i
+
+  for i = 0 to 9
+    mda (i) = rnd(90)
+  next
+end fn
+
+local fn Display( title as CFStringRef ) as NSUInteger
+  NSUInteger  i, worth = 0
+  CFStringRef comma = @","
+
+  printf @"%@ [\b", title
+  for i = 0 to 9
+    worth += mda_integer (i)
+    if i == 9 then comma = @""
+    printf @"%2lu%@\b", mda_integer (i), comma
+  next
+  printf @"]  Sum = %lu", worth
+end fn = worth
+
+local fn Flatten( f as NSUInteger )
+  NSUInteger i, f1 = int((f / 10) + .5 ), f2 = 0, temp
+
+  for i = 0 to 9
+    mda (i) = f1
+    f2 += f1
+  next
+  temp = mda_integer (9)
+  mda (9) = temp + f - f2
+end fn
+
+local fn Transfer( a1 as NSUInteger, a2 as NSUInteger )
+  NSUInteger t, temp = int( rnd( mda_integer ( a1 ) ) )
+
+  t = mda_integer ( a1 ) : mda ( a1 ) = t -temp
+  t = mda_integer ( a2 ) : mda ( a2 ) = t +temp
+end fn
+
+NSUInteger a, i
+
+random
+fn PopulateArrayWithRandomNumbers
+a = fn Display( @"  Initial array:" )
+fn Flatten( a )
+a = fn Display( @" Current values:" )
+fn Transfer( 3, 5 )
+fn Display( @" 19 from 3 to 5:" )
+
+HandleEvents