Не могу запустить под notepad

@Марсель231 · Регистрация: 17.10.2013

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

(defun task (lst1 lst2)
(let ((l (length lst1)))
(mapcar #'(lambda (x) (if (oddp (car x)) (cadr x) (caddr x))) (mapcar 'list (range 1 l) lst1 lst2))))

==> task

(task '(1 2 3 4 5) '(11 22 33 44 55))

==> (1 22 3 44 5)
Нотепад не определяет функцию range, а в автокаде выходит ошибка no function definition: L

Добавлено через 59 минут
задание: в 3 списке на нечетных позициях должны стоять элементы c нечетных позиций из 1 списка, а на четных элементы с четных позиций 2 списка. l1(1 2 3 4 5) l2(11 22 33 44 55) результат l3(1 22 3 44 5)

@korvin_ · 18.10.2013, 08:08

Сообщение от Марсель231

Нотепад не определяет функцию

Удивительно.

Сообщение от Марсель231

range

А что это за функция и где она живет? Тут нет такой: http://www.lispworks.com/docum... Alph_R.htm

Сообщение от Марсель231

в автокаде

Ты используешь автокад как интерпретатор лиспа? Сурово.

Lisp
1
2
3
4
5
6
7
8
(defun merge-by-position (xs ys)
  (loop :for x :in xs
        :for y :in ys
        :for i :upfrom 0
        :collect (if (evenp i) x y)))
 
(merge-by-position '(1 2 3 4 5) '(11 22 33 44 55))
; (1 22 3 44 5)

@Lambdik · 18.10.2013, 10:09

range - диапазон.

Lisp
1
2
3
4
5
(defun range (a b)
  (if (<= a b) (cons a (range (1+ a) b))))
 
> (range 2 6)
(2 3 4 5 6)

@Catstail · 18.10.2013, 10:17

Марсель231, код проверен в HomeLisp. В HomeLisp есть функция range (реализацию которой привел Lambdik)

@ur_naz · 18.10.2013, 20:42

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

код проверен в HomeLisp. В HomeLisp есть функция range (реализацию которой привел Lambdik)

В автолисп вообще много чего нет что есть в HomeLisp.

Марсель231, чтобы писать на автолисп, нужна знать этот диалект. Точнее знать, чего в нем нет... Зря вы так кипятились, напридумывали воздушных замков, а все намного проще

Lisp
1
2
3
4
5
(defun merge (lst1 lst2)
  (if lst1
    (cons (car lst1) (merge (cdr lst2) (cdr lst1)))
  )
)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Марсель231 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 6

	Не могу запустить под notepad 18.10.2013, 07:20. Показов 1149. Ответов 4 Метки нет (Все метки) (defun task (lst1 lst2) (let ((l (length lst1))) (mapcar #'(lambda (x) (if (oddp (car x)) (cadr x) (caddr x))) (mapcar 'list (range 1 l) lst1 lst2)))) ==> task (task '(1 2 3 4 5) '(11 22 33 44 55)) ==> (1 22 3 44 5) Нотепад не определяет функцию range, а в автокаде выходит ошибка no function definition: L Добавлено через 59 минут задание: в 3 списке на нечетных позициях должны стоять элементы c нечетных позиций из 1 списка, а на четных элементы с четных позиций 2 списка. l1(1 2 3 4 5) l2(11 22 33 44 55) результат l3(1 22 3 44 5) 0

@Catstail Супер-модератор 38173 / 21108 / 4307 Регистрация: 12.02.2012 Сообщений: 34,706 Записей в блоге: 14
	18.10.2013, 10:17
	Марсель231, код проверен в HomeLisp. В HomeLisp есть функция range (реализацию которой привел Lambdik) 0