Генсим в Ракетке

Question

Я знаю, что gensym может генерировать символы, но кажется, что там есть глобальный счетчик с основанием, который может быть очень большим, например, (define s (gensym 's)) s может заканчиваться на s12345.Мне интересно, есть ли способ обнулить счетчик, где сгенерированное число может быть маленьким? Как s14?

Answer 1

Нет способа сделать это, иначе это было бы упомянуто в документах . Вы можете предоставить только «базу» для нового символа. Если вам действительно нужен маленький счетчик, то легко создать свой собственный gensym, используя string->unreadable-symbol, например:

(define gensym
  (let ([counter 0])
    (lambda ([x 'g])
      (if (number? x)
        (set! counter x)
        (begin0 (string->unreadable-symbol
                 (format "~a~a" x counter))
          (set! counter (add1 counter)))))))