VPF::есть ли аргумент списком с 3-х атомов

shmajser

Дата 27.12.2009, 19:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите...
Написать функцию которая проверяет есть ли агрумент списком с 3-х атомов...

VH_

Дата 27.12.2009, 23:01 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

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

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

Написать функцию которая проверяет есть является ли аРГумент списком с из 3-х атомов

Код

(defun F (X)
 (if (consp X)
  (if (= (length X) 3)
   (equal (mapcar 'atom X) '(T T T)))))

Это сообщение отредактировал(а) VH_ - 27.12.2009, 23:03

shmajser

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

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

Загрузка ...

Новичок

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

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

спасибо большое)

_sg

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

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

Загрузка ...

Шустрый

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

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

как вариант:

Код


(defun atom-n (w n)
  (and (eq (length w) n) (every #'atom w)))

> (atom-n '(1 2 3) 3)
T
> (atom-n '(1 2) 3)
NIL
> (atom-n '(1 2 nil) 3)
T
> (atom-n '(1 2 '(a)) 3)
NIL

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

vk.com/ansicommonlisp

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