11 lines
740 B
APL
11 lines
740 B
APL
⍝ We know that 99,736 is a valid answer, so we only need to test the positive integers from 1 up to there:
|
||
N←⍳99736
|
||
⍝ The SQUARE OF omega is omega times omega:
|
||
SQUAREOF←{⍵×⍵}
|
||
⍝ To say that alpha ENDS IN the six-digit number omega means that alpha divided by 1,000,000 leaves remainder omega:
|
||
ENDSIN←{(1000000|⍺)=⍵}
|
||
⍝ The SMALLEST number WHERE some condition is met is found by taking the first number from a list of attempts, after rearranging the list so that numbers satisfying the condition come before those that fail to satisfy it:
|
||
SMALLESTWHERE←{1↑⍒⍵}
|
||
⍝ We can now ask the computer for the answer:
|
||
SMALLESTWHERE (SQUAREOF N) ENDSIN 269696
|