> 1 <

Автор Сообщение

Ксения_Кожанова

Members


Статус

3 сообщений

Где: Russia
Род занятий:
Возраст:

#7549   2015-03-26 21:41 GMT+3 часа(ов)      
1)Написать программу IND с параметрами Х и L, которая возвращает меньшее из целых чисел N таких, что Х встретился в качестве Nго элемента списка L и возвращает 0 если Х не принадлежит L.
2)Написать программу с именем Х, которая имеет аргументы L,M являющиеся списками. Данная программа должна возвращать Е (истина) если количество скобок в списках одинаково и возвращать NIL если не одинаково.

Помогите пожалуйста!!!

Valko

Members


Статус

29 сообщений

Где: ---
Род занятий:
Возраст:

#7550   2015-03-27 10:38 GMT+3 часа(ов)      
1). кто с чем встретился?

2).
(defun F (x)
(cond
((null x) 1)
((atom x) 0)
(t (+ (F (car x)) (F (cdr x))))))
 
(defun X (L M)
(if (= (F L) (F M))
(quote E)))
 
(X '((((a))) b) '((b ((a)))))
=> E

Ксения_Кожанова

Members


Статус

3 сообщений

Где: Russia
Род занятий:
Возраст:

#7551   2015-03-27 18:20 GMT+3 часа(ов)      
Написать программу IND с параметрами Х и L, которая возвращает меньшее из целых чисел N таких, что Х встречается в качестве Nго элемента списка L и возвращает 0 если Х не принадлежит L.
Я начала вот так:
(DEFUN IND (X L) (PROG (A B)
(SETQ A ((CAR L))
(SETQ N 0)
(SETQ L (CDR L))
(COND (NIL L)
(RETURN N))




отредактировал(а) Ксения_Кожанова: 2015-03-27 18:25 GMT+3 часа(ов)

Valko

Members


Статус

29 сообщений

Где: ---
Род занятий:
Возраст:

#7552   2015-03-28 13:12 GMT+3 часа(ов)      
Слушайте, Ксения! Я не смогу вам помочь, если вы не объясните толково задание. Какие аргументы принимают X и L?

Ксения_Кожанова

Members


Статус

3 сообщений

Где: Russia
Род занятий:
Возраст:

#7553   2015-03-29 01:37 GMT+3 часа(ов)      
Задание такое, кроме этого ничего не дано: Написать программу IND с параметрами Х и L, которая возвращает меньшее из целых чисел N таких, что Х встречается в качестве Nго элемента списка L,если Х принадлежит L или возвращает 0 если Х не принадлежит L.
Спасибо, что помогли со 2м заданием.

Valko

Members


Статус

29 сообщений

Где: ---
Род занятий:
Возраст:

#7554   2015-03-29 02:58 GMT+3 часа(ов)      
Будем считать, что это индекс.
(defun IND (X L)
(prog ((N 0))
@ (cond
((null L) (return 0))
((eq X (car L)) (return N)))
(setq N (+ 1 N))
(setq L (cdr L))
(go @)))
 
(IND 0 '(1 2 9 4 5 0 7 8))
=> 5
(IND 3 '(1 2 9 4 5 0 7 8))
=> 0

Барышев Сергей

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7659   2015-09-07 13:50 GMT+3 часа(ов)      
нужна помощь в написание Лисп. Смогу объяснить задачу после отклика на мое сообщение.

Valko

Members


Статус

29 сообщений

Где: ---
Род занятий:
Возраст:

#7660   2015-09-10 22:07 GMT+3 часа(ов)      
Давайте посмотрю, может там и решать нечего. Хотя со временем у меня не очень.
stolbikk@bigmir.net

_sg

Members


Статус

31 сообщений

Где: Russia
Род занятий:
Возраст:

#7684   2016-01-02 00:34 GMT+3 часа(ов)      
1.
(defun insider (a w &aux (n (position a w))) (if n (1+ n) 0))
> (insider 1 '(1 2 3))
1
> (insider 4 '(1 2 3))
0
 
> 1 <


Онлайн :

0 пользователь(ей), 16 гость(ей) :




Реклама на сайте: