VPF::списки - Форум программистов

jersey

Дата 28.12.2009, 01:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 28.12.2009

Репутация: нет
Всего: нет

Помогите народ...

L1 L2 - списки
Написать функцию которая возвращала б Т если N-й елемент списка L1 меньше (N-1) - го елемента второго списка,
и Nil если наоборот.

думала может с помощью CDR и CAR добраться к этим елементам и IF-ом их сравнить, но не получилось(

VH_

Дата 28.12.2009, 09:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 182
Регистрация: 31.10.2006

Репутация: 10
Всего: 11

Что делать в ситуации, когда N равно 0, то есть в первом списке рассматривается первый элемент?

VH_

Дата 28.12.2009, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 182
Регистрация: 31.10.2006

Репутация: 10
Всего: 11

Код

(defun F (L1 L2)
 ((lambda (result)
   (if result
    (eval (cons 'and result))))
  (mapcar '< (cdr L1) L2)))

В некоторых диалектах допустимо

Код

(defun F (L1 L2)
 ((lambda (result)
   (if result
    (apply 'and result)))
  (mapcar '< (cdr L1) L2)))

jersey

Дата 28.12.2009, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 28.12.2009

Репутация: нет
Всего: нет

спасибо)

_sg

Дата 25.4.2014, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2

как вариант:

Код


(defun <-n-1-n (w v n)
  (< (nth n w) (nth (1- n) v)))

> (<-n-1-n '(1 2 3 4) '(1 2 3 4) 2)
NIL
> (<-n-1-n '(1 2 3 4) '(5 6 7 8) 2)
T

--------------------

vk.com/ansicommonlisp

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| LISP \| Следующая тема »