Babbage problem: Difference between revisions

(→‎Program: Nil.)
Line 1,122:
Its square is: 638269696</pre>
 
===WrapperAPL style wrapper===
 
====Note====
Line 1,144:
(∇ ANSWER
(← N 520)
REDOSTEP (← S (* N N))
(→ (= (MOD S 1000000) 269696) (▷ DONEHALT))
(← N (+ N 2))
(▷ REDOSTEP)
DONEHALT (⍝ N))</syntaxhighlight>
 
==== Execution ====
422

edits