12 lines
396 B
Plaintext
12 lines
396 B
Plaintext
Red []
|
|
number: 510 ;; starting number
|
|
;; repeat, until the last condition in the block is true
|
|
until [
|
|
number: number + 2 ;; only even numbers can have even squares
|
|
;; The word modulo computes the non-negative remainder of the
|
|
;; first argument divided by the second argument.
|
|
;; ** => Returns a number raised to a given power (exponent)
|
|
269696 = modulo (number ** 2) 1000000
|
|
]
|
|
?? number
|