19 lines
379 B
Text
19 lines
379 B
Text
val perfectsquare = fn(n) { (n ^/ 2) div 1 }
|
|
|
|
val israre = fn(n) {
|
|
val r = reverse(n)
|
|
if n == r: return false
|
|
val sum = n + r
|
|
val diff = n - r
|
|
diff > 0 and perfectsquare(sum) and perfectsquare(diff)
|
|
}
|
|
|
|
val findfirst = fn(mx) {
|
|
for[=[]] i = 0; len(_for) < mx; i += 1 {
|
|
if israre(i) {
|
|
_for ~= [i]
|
|
}
|
|
}
|
|
}
|
|
|
|
writeln findfirst(5)
|