знаю что решение простое, не могу что-то сообразить, у меня есть лист элементов и лист размерностей мне нужно разбить лист по размерностям

(1 2 3 4 5 6 ) (2, 3 ,1) -> (1 2) (3 4 5) (6)

можно попробовать spit-at https://clojuredocs.org/clojure.core/split-at и дальше рекурсивно хвост

(:r (reduce #(assoc %1 :r (conj (:r %1) (take %2 (:s %1))) :s (drop %2 (:s %1))) {:r [] :s (range 1 7)} (list 2 3 1)))

все время пытаюсь reduce не по назначению использовать

а partition и partition-all не помогут?

нет вроде

😞

я знаю что наверняка есть функция. но иногда с поиском конкретной сложности возникают

почти уверен что такой функции нет

Я вот это использую http://clojure.org/api/cheatsheet

Я тоже не думаю, что есть такая функция

А вообще, зачем такое разбиение нужно?

ну это специфичная задача, алгоритм шифрования такой

через рекурсию мб?

(loop [s '(1 2 3 4 5 6) d '(2 3 1) r []]
  (if (= (count d) 0)
    r
    (let [dx (first d)]
      (recur (drop dx s) (rest d) (conj r (take dx s))))))

м/б (empty? d)

(defn chunks [data [n & counts]]
  (when (seq data)
    (cons (take n data) 
          (lazy-seq (chunks (drop n data) counts)))))

(chunks [1 2 3 4 5 6] [2 3 1])
=> ((1 2) (3 4 5) (6))

@prepor: поясни для чего там lazy-seq, пожалуйста

ну что б спортивнее и можно было ленивые коллекции скармливать!

@mkaschenko: так то понятно, что можно просто

(defn chunks [data [n & counts]]
  (when (seq data)
    (cons (take n data) 
          (chunks (drop n data) counts))))

👍

а рекурсия чем-то отличается от loop+recur? из за длинного списка стек не помрет?

помрет

@kronos_vano: здесь же вроде не хвостовая..

я не уверен что в кложе есть хвостовая

в луп рекур хвостовая

я бы не сказал что там вообще рекурсия, больше похоже на цикл

https://clojure.org/reference/special_forms#recur

Note that recur is the only non-stack-consuming looping construct in Clojur

а рекурсия это не цикл? )

recur это явное определение хвостовой рекурсии, да

в моей функе без lazy-seq будет расти стек

с lazy-seq стек расти не будет

Ок

теперь понятно

> а рекурсия это не цикл? ) ну в примитивном случае TCO, какой в кложе

в не примитивном тоже цикл, просто посложнее

преобразование стека вызовов в итеративный цикл это же и есть вроде оптимизация хв. рекурсии, если грубо

угумс

энивей, хорошая задачка. сохраню

просто с mututral recursion вроде так в лоб не получится

Кто-нибудь деплоил clojure на heroku? Получаю такую ошибку, не могу понять в чем дело. Порт берется из env, все ок, но не работает. [ERROR][luminus.http-server] server failed to start on port xxxxx java.lang.RuntimeException: java.net.BindException: Cannot assign requested address

immutant используется

Never mind