Найти наибольшее целое число, квадрат которого не больше, чем N в Прологе

Question

Найдите наибольшее целое число, квадрат которого не больше N.

Например:

• Вход 1: isqrt (8, R) => Выход: R = 2, потому что 2 ^ 2 = 4 <= 8. </p>

• Вход 2: isqrt (9, R) => Выход: R = 3, потому что 3 ^ 2 = 9 <= 9. </p>

Спасибо за вашу поддержку.

Answer 1

Вот подсказка:

?- Limit = 10, 
   forall( ( between(0,Limit,X), 
             X**2 < Limit
           ), 
           writeln(X)).
0
1
2
3