Усовершенствованный генератор случайных чисел

Полезно иметь возможность сбросить генератор случайных чисел, чтобы получить последовательность, которая начинается с некоторого числа. Постройте новую процедуру rand , которая вызывается с аргументом. Этот аргумент должен быть либо символом generate , либо символом reset . Процедура работает так: (rand 'generate) порождает новое случайное число; ((rand 'reset) <новое-значение>) сбрасывает внутреннюю переменную состояния в указанное <новое-значение> . Таким образом, сбрасывая значения, можно получать повторяющиеся последовательности. Эта возможность очень полезна при тестировании и отладке программ, использующих случайные числа.

---