Jump to content

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

Cookies help us deliver our services. By using our services, you agree to our use of cookies.