Problems restricting feature images – Mathematica Stack Exchange

I'm following this book

With Math and I'm having some problems on my way:

1) Consider the function

mutateSentence[sent_List, mutDistance_, mutRate_] : =
(sent - Table[
     If[Random[Real, {0, 1}] <= mutRate,
Random[Integer, {-mutDistance, mutDistance}], 0],
Length[sent]]) /. (x_ /; x <= 65 :> 93 - (65 - x);
Y_ /; and> = 93:> 65 + (and - 93))

The first argument is a list of integers between 65 and 93, the second argument is an integer and the third is a probability. It is assumed that this function returns another list of integers between 65 and 93. However, when testing the function, I still get 64. Can someone help me find the problem?

Tks in advance 🙂