Лишняя работа

Лиза П. Хакер жалуется, что при написании expmod мы делаем много лишней работы. В конце концов, говорит она, раз мы уже знаем, как вычислять степени, можно просто написать

(define (expmod base exp m)
  (remainder (fast-expt base exp) m))

Права ли она? Стала бы эта процедура столь же хорошо работать при проверке простых чисел? Объясните.

---