Babbage problem: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,122: / Line 1,122: @@
 Its square is: 638269696</pre>
-===Wrapper===
+===APL style wrapper===
 ====Note====
@@ Line 1,144: / Line 1,144: @@
 (∇ ANSWER
          (← N 520)
-   REDO  (← S (* N N))
+   STEP  (← S (* N N))
-         (→ (= (MOD S 1000000) 269696) (▷ DONE))
+         (→ (= (MOD S 1000000) 269696) (▷ HALT))
          (← N (+ N 2))
-         (▷ REDO)
+         (▷ STEP)
-   DONE  (⍝ N))</syntaxhighlight>
+   HALT  (⍝ N))</syntaxhighlight>
 ==== Execution ====