Clojure Кложа - в репле работает, на сайте с задачами - ошибка компиляции

@_Ivana · Регистрация: 01.03.2013

Студворк — интернет-сервис помощи студентам

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

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defn mrg [a b]
  (cond
    (empty? a) b
    (empty? b) a
    (< (first a) (first b)) (cons (first a) (lazy-seq (mrg (rest a) b)))
    (> (first a) (first b)) (cons (first b) (lazy-seq (mrg a (rest b))))
    :else (cons (first b) (lazy-seq (mrg (rest a) (rest b))))
    )
  )
(defn f2 [n] (* 2 n))
(defn f3 [n] (* 3 n))
(defn f5 [n] (* 5 n))
(def h ( cons 1 (mrg (mrg (map f2 h) (map f3 h)) (map f5 h) ) ))
 
(defn hamming [n] (nth h (- n 1)) )
 
(take 50 h)

Code
1
=> (1 2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100 108 120 125 128 135 144 150 160 162 180 192 200 216 225 240 243)

В репле идеи все компилируется и работает, на сайте с задачками ошибка:

Code
1
java.lang.IllegalArgumentException: Don't know how to create ISeq from: clojure.lang.Var$Unbound, compiling:(NO_SOURCE_FILE:15:22)

Что это может быть и как это исправить?

Добавлено через 15 часов 21 минуту

Не по теме:

Какие здесь все вежливые (кроме одного, который у меня в игноре), плюсы ставят за просто так, в других разделах и когда заслуживаешь - не всегда поставят, а тут за любой чих валом...

Вести с полей: smoke853 подсказал мне как поиграться лезисеками, и вот такой вариант заработал везде:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(defn mrg [a b]
  (lazy-seq
    (cond
      (< (first a) (first b)) (cons (first a) (mrg (rest a) b))
      (> (first a) (first b)) (cons (first b) (mrg a (rest b)))
      :else (cons (first b) (mrg (rest a) (rest b)))
    )
  )
)
(defn f2 [n] (* 2 n))
(defn f3 [n] (* 3 n))
(defn f5 [n] (* 5 n))
(def h ( cons 1 (lazy-seq (mrg (mrg (map f2 h) (map f3 h)) (map f5 h) )) ))
 
(defn hamming [n] (nth h n) )

Из мержа убраны тормозящие проверки на окончание потоков (они все бесконечные), в сводный поток h добавлен свой лезисек, f1\f2\f3 сделаны по-уродски, знаю, но для надежности - пока не освоил лямбды\сечения\частичные применения\что там еще здесь есть.

Но осталось много вопросов.
1) предыдущий кот (в первом посте) тоже не всегда работал в репле, зависит вроде от того, что было загружено до него, и перегружаю ли я ту же функцию с другим телом. Пока не разобрался.
2) какой конс из всего их полиморфного многообразия здесь выполняется? Ведь я нигде не задаю тип. И какой у меня получается поток - список, вектор или что-то еще? Судя по порядку элементов вроде список. А почему не вектор например?
3) Весь этот сексп с лезисеками конечно интересен, но хотелось бы в нем разобраться и понимать. В определенных краях всегда вызов по необходимости, там таких проблем нет. Надо еще в страну F# сходить, спросить как там с бесконечными потоками и их мержением справляются и каким синтаксисом побеждают их при умолчальном вызове по значению вроде.

Добавлено через 9 минут
4) Если я могу написать (+ 1 2 3 4 5 6), то это получается функция с переменным числом аргументов. А если я пытаюсь так же свою mrg вызвать - ругается. Подозреваю, что можно доработать синтаксис ее объявления, чтобы понимала и не ругалась.

@smoke853 · 29.04.2015, 02:13

Не по теме:

Сообщение от castorsky

Вот как бы так посередине остаться...?

На этот вопрос, у меня нет ответа:D

@castorsky · 29.04.2015, 02:19

Не по теме:

Сообщение от _Ivana

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

частично верно. Я думаю ответ: просто делать своё дело

.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .