Steady squares: Difference between revisions

Content added Content deleted

Inline

@@ Line 683: / Line 683: @@
   lastDigit  <- ( 1, 5, 6 );
   n <- -10;
+  while( ` [ n <- n + 10 ] <= maxNumber '
-  while
+       , ` begin
-  ( ` begin n <- n + 10; n <= maxNumber end '
+             new d;
-  , ` begin
+             if n = powerOfTen then powerOfTen <- powerOfTen * 10
-        new d;
-        if n = powerOfTen then powerOfTen <- powerOfTen * 10 else 0;
+                               else 0;
-        d <- 0;
+             d <- 0;
-        while
+             while( ` [ d <- d + 1 ] <= length lastDigit '
-        ( ` begin d <- d + 1; d <= length lastDigit end '
+                  , ` begin
-        , ` begin
+                        new nd; new n2;
-              new nd; new n2;
+                        nd <- n + lastDigit[ d ];
-              nd <- n + lastDigit[ d ];
+                        n2 <- nd * nd;
-              n2 <- nd * nd;
+                        if n2 mod powerOfTen = nd then out nd else 0
-              if n2 mod powerOfTen = nd then out nd else 0
+                      end
-            end
+                    '
-          '
+                  )
-        )
+           end
-      end
+         '
-    '
+       )
-  )
 end
 $