12 lines
199 B
Text
12 lines
199 B
Text
|
#lang transd
|
||
|
|
|
||
|
|
MainModule : {
|
||
|
|
rem: 269696,
|
||
|
|
|
||
|
|
_start: (lambda
|
||
|
|
(with n (to-Int (sqrt rem))
|
||
|
|
(while (neq (mod (pow n 2) 1000000) rem) (+= n 1))
|
||
|
|
(lout n)
|
||
|
|
) )
|
||
|
|
}
|