11 lines
199 B
Text
11 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)
|
|
) )
|
|
}
|