RosettaCodeData/Task/Babbage-problem/PicoLisp/babbage-problem.l
2023-07-01 13:44:08 -04:00

3 lines
157 B
Text

: (for N 99736 # Iterate N from 1 to 99736
(T (= 269696 (% (* N N) 1000000)) N) ) # Stop if remainder is 269696
-> 25264