В ghci, используя пакет arithmoi:
Math.NumberTheory.Powers.General> :set +s
Math.NumberTheory.Powers.General> integerRoot 786 ((10^32)^786)
100000000000000000000000000000000
(0.04 secs, 227,064 bytes)
Math.NumberTheory.Powers.General> integerRoot 787 ((10^32)^787)
Через пять минут он все еще не ответил. Почему это так долго?
(Из некоторых специальных тестов он кажется медленным для всех вариантов, размер которых больше 787, и быстрый для всех вариантов меньше.)