Группировать последовательность bools в clojure?

Question

Я хотел бы преобразовать следующую последовательность:

(def boollist [true false false false true false true])

На следующее:

[[true] [false false false true] [false true]]

Мой код приводит к переполнению стека:

(defn sep [boollst]
  (loop [lst boollst
         separated [[]]
         [left right] (take 2 lst)]
    (if (nil? left) separated)
    (recur (next lst) 
           (if (false? left)
             (conj (last separated) left)
             (conj separated [left]))
           (take 2 (next lst)))))

Есть ли элегантный способ изменить это?

Answer 1

Вероятно, есть гораздо более элегантный способ, но вот что я придумал:

(defn f 
  ([xs] (f xs [] []))
  ([[x & xs :as all] acc a]  
     (if (seq all)
       (if x
         (recur xs [] (conj a (conj acc x)))
         (recur xs (conj acc x) a))
       a)))

Он просто пересекает последовательность, отслеживая текущий вектор ложностей, и до сих пор является большим аккумулятором всего.

Answer 2

Короткое, «умное» решение будет следующим:

(defn sep [lst]
  (let [x (partition-by identity lst)]
    (filter last (map concat (cons [] x) x))))

Проблема «переполнения стека» связана с философией Clojure, касающейся рекурсии, и ее легко избежать при правильном подходе.Вы должны всегда реализовывать эти типы функций * ленивым способом: если вы не можете найти хитрость для решения проблемы с использованием библиотечных функций, как я делал выше, вы должны использовать «lazy-seq» для общего решения (например, pmjordan)сделал) как объяснено здесь: http://clojure.org/lazy

* Функции, которые формируют список и возвращают список как результат.(Если возвращается нечто иное, чем список, идиоматическое решение состоит в том, чтобы использовать «recur» и аккумулятор, как показано в примере dfan, который в этом случае я бы не назвал идиоматическим.)

Answer 3

Вот версия, которая использует ленивую оценку и, возможно, немного более читабельна:

(defn f [bools]
  (when-not (empty? bools)
    (let
      [[l & r] bools
       [lr rr] (split-with false? r)]
      (lazy-seq (cons
        (cons l lr)
        (f rr))))))

Она не возвращает векторы, поэтому, если это требование, вам нужно вручную передать результат concatсамой функции до vec, что сводит на нет преимущество использования ленивых вычислений.

Answer 4

Ошибка переполнения стека из-за того, что ваш recur находится за пределами if.Вы оцениваете форму if для побочных эффектов , затем безоговорочно повторяете(не стесняйтесь редактировать для формата, я не на реальной клавиатуре).