Data update

Task/Babbage-problem/Berkeley-Logo/babbage-problem.logo

@@ -0,0 +1,9 @@
+to babbage.problem
+  ; We can start at the square root of 269696
+  make "I 520
+  ; 269696 is a multiple of 4, 520 too
+  ; so we can increment :i by 4
+  while [not (modulo (:i * :i) 1000000 = 269696)] [make "i :i + 4]
+  print sentence "|The smallest positive integer whose square ends in the digits 269696 is| :i
+  print sentence "|Its square is|" (:i * :i)
+end