Data update

Task/Babbage-problem/Rebol/babbage-problem.rebol

@@ -0,0 +1,10 @@
+number: 510 ;; starting number
+;; repeat, until the last condition in the block is true
+until [
+    number: number + 2 ;; only even numbers can have even squares
+    ;; The word modulo computes the non-negative remainder of the
+    ;; first argument divided by the second argument.
+    ;; **  =>  Returns a number raised to a given power (exponent)
+    269696 = modulo (number ** 2) 1000000
+]
+?? number