Babbage problem: Difference between revisions

(→‎Program: Nop.)
Line 1,143:
 
(∇ ANSWER
(← N 520)
AREDO (← S (* N N))
(→ (= (MOD S 1000000) 269696) (▷ BEXIT))
(← N (+ N 2))
(▷ AREDO)
B (⍝ N))</syntaxhighlight>
 
422

edits