OR
(defn string->token-list [input-string]
(let [lexer (BSL.Lexer. (StringReader. input-string))]
(->> (repeatedly #(.yylex lexer))
(take-while #(not= 'EOF %))
(reverse))))
Size: a a a
2020 June 18
OR
Но если задуматься, то странно, что результаты в обратном порядке.
ВБ
и reverse?
так разворот был в рекуре нужен потому как сборка через cons шла.
ВБ
(defn string->token-list [input-string]
(let [lexer (BSL.Lexer. (StringReader. input-string))]
(take-while #(not= 'EOF %) (repeatedly #(.yylex lexer)))))
Что-то типа такого
прикольно. работает
OR
Валентин Бомбин
так разворот был в рекуре нужен потому как сборка через cons шла.
[] + conjВБ
[] + conj?
OR
user=> (-> [] (conj 1) (conj 2))
[1 2]
D
threading очень хорош, но иногда помогает промежуточное наименование
OR
Именование часто помогает, но хорошо назвать — дело трудное.
D
ну да, naming and caching - 2 big problems
D
например:
Kazama gave Shaun a string of even length, and asked him to swap the characters at the even positions with the next character.
(fn [s]
(let [evens (iterate (partial + 2) 0)
odds (iterate (partial + 2) 1)
idxs (take (count s) (interleave odds evens))]
(->> idxs
(map #(nth s %))
(apply str))))
D
(fn [s]
(->> (range (count s))
(partition 2)
(map reverse)
flatten
(map #(nth s %))
(apply str)))
D
или вот
(fn [res [frst scnd & rst]]
(if (nil? frst)
res
(recur (str res scnd frst) rst)))
OR
frst, scnd, пчткAC
Ну вот в хашкеле любят как в математике xyz
AK
Из веба уберешь главы?
T
Anton Karpov
Из веба уберешь главы?
Черновики глав по-прежнему доступны в блоге, однако я горячо рекомендую вам книгу. Черновики я переписывал пять раз, многое убрал и добавил, исправил море неточностей и ошибок. В будущем повешу на них плашку со ссылкой на книгу.
TP
Заказал книжку, спасибо за труд!
Натыкался на твой блог в гугле, когда искал ответы на кое-какие вопросы) И находил))
Натыкался на твой блог в гугле, когда искал ответы на кое-какие вопросы) И находил))