Решили проблем, теперь решаем проблемы от решения.

Я вёрсткой долго занимался, видел что приходится рендерить

Так что это вообще чудеса, что он что-то показывает хотя-бы

Ну так-то проблема и в других UI системах существует

В игровых движках декларативный рендеринг появился до реакта

Она к нам приехала чуть ли не из андроида, я помню,  когда я им занимался, там было что-то про то, как делать, чтобы списки было не больно отрисовывать.

Там даже виртуального ничего не надо

Потому что рендерим 60 раз в секунду по текущему состоянию

Там нет реконсайла

Кадр рендерится с нуля

Это называется immediate mode ui

А то что в айфонах Андроидах И так далее - retained mode

Подскажите, как можно упростить код

(defn string->token-list [input-string]
  (let [lexer (new BSL.Lexer (new StringReader input-string))]
    (loop
           [readed (. lexer yylex)
               acc '()]
           (if (= 'EOF (:symbol readed))
             acc
             (recur (. lexer yylex) (cons readed acc))))))

а можно такие штуки заворачивать в что-то типа (repeatedly (. lexer yylex)), а потом take-while?

Почитаю, спасибо

мне самому интересно :)

По виду вроде можно

(defn string->token-list [input-string]
  (let [lexer (BSL.Lexer. (StringReader. input-string))]
    (take-while #(not= 'EOF %) (repeatedly #(.yylex lexer)))))

Что-то типа такого

и reverse?

Да, упустил.