С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
brotunepro
0 / 0 / 0
Регистрация: 01.02.2018
Сообщений: 1
1

Написать функцию F6(a1 a2), которая возвращает Т, если в списке а1 хотя бы дважды встречается элемент а2

01.02.2018, 14:21. Просмотров 245. Ответов 4
Метки нет (Все метки)

1. Написать функцию F6(a1 a2 ), которая возвращает Т, если в списке а1 хотя бы дважды встречается элемент а2.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.02.2018, 14:21
Ответы с готовыми решениями:

Написать функцию, которая будет считать сколько раз заданный элемент встречается в списке
Должны использоватся два параметра, список и элемент заранее спасибо за ответ)

Написать функцию, которая в списке а1 заменяет элемент а2 на элемент а3
Помогите написать функцию F16(a1 a2 a3), которая в списке а1 заменяет элемент а2 на элемент а3.

Написать функцию, аргументом которой является список атомов, которая выдает значение ИСТИННА(Т), если в списке есть три и более одинаковых атома
Написать функцию, аргументом которой является список атомов, которая выдает значение ИСТИННА(Т),...

Написать функцию, которая выдает в качестве результата предпоследний элемент списка, если он есть, а иначе NIL
Написать функцию, которая выдает в качестве результата предпоследний элемент списка, если он есть,...

Написать функцию которая возвращает матрицу
Если у кого есть время, помогите, нужно написать функцию (MATR m i j value) которая возвращает...

4
Catstail
Модератор
23895 / 11939 / 2108
Регистрация: 12.02.2012
Сообщений: 19,407
02.02.2018, 11:35 2
Lisp
1
2
(defun f6(a1 a2)
  (>= (length (remove a2 a1) 2))
1
_sg
3892 / 3673 / 254
Регистрация: 12.05.2012
Сообщений: 2,566
02.02.2018, 16:58 3
Lisp
1
2
3
4
5
6
7
8
9
10
(defun twice (w a &optional (n 2))
  (cond ((zerop n))
        ((null w) nil)
        ((equalp (car w) a) (twice (cdr w) a (1- n)))
        ((twice (cdr w) a n))))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
Добавлено через 2 минуты
Lisp
1
2
3
4
5
6
(defun twice (w a) (> (count a w) 1))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
Добавлено через 2 часа 51 минуту
Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun twice (w a &optional (n 2))
  (if (zerop n) t
      (when w
        (twice (cdr w)
               a
               (- n (if (equalp (car w) a) 1 0))))))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun twice (w a &optional (n 2))
  (cond ((zerop n))
        ((when w
           (twice (cdr w)
                  a
                  (- n (if (equalp (car w) a) 1 0)))))))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
1
_sg
3892 / 3673 / 254
Регистрация: 12.05.2012
Сообщений: 2,566
07.02.2018, 08:47 4
Lisp
1
2
3
4
5
6
7
(defun twice (w a)
  (if (cdr (remove-if-not #'(lambda (e) (equalp e a)) w)) t))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
1
_sg
3892 / 3673 / 254
Регистрация: 12.05.2012
Сообщений: 2,566
09.02.2018, 08:43 5
Lisp
1
2
3
4
5
6
7
8
(defun twice (w a)
  (loop for e in w if (and (= n 1) (equalp e a)) return t
        else if (equalp e a) count e into n))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
Добавлено через 15 минут
Lisp
1
2
3
4
5
6
7
8
9
(defun twice (w a)
  (loop for e in w
        when (equalp e a) count e into n
        when (= n 2) return t))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
Добавлено через 19 часов 24 минуты
Lisp
1
2
3
4
5
6
7
8
9
(defun twice (w a &optional (n 2) &aux (v (member a w)))
  (cond ((zerop n))
        ((null v) nil)
        ((twice (cdr v) a (1- n)))))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
8
(defun twice (w a &optional (n 2) &aux (v (member a w)))
  (cond ((zerop n))
        ((when v (twice (cdr v) a (1- n))))))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
Добавлено через 2 минуты
Lisp
1
2
3
4
5
6
7
8
(defun twice (w a &optional (n 2) &aux (v (member a w)))
  (if (zerop n) t
      (when v (twice (cdr v) a (1- n)))))
 
CL-USER> (twice '(a b c) 'b)
NIL
CL-USER> (twice '(a b b) 'b)
T
1
09.02.2018, 08:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2018, 08:43

Написать функцию которая возвращает True, если есть пара чисел, которая удовлетворяет условие
Есть массив: arr : array of Integer; Заполненный случайными числами от -32,768 до 32,767. ...

Написать функцию, которая возвращает TRUE, если её аргумент — простое число
Нужна помощь, работает не правильно <form action="" method="POST"> Введите число <input...

Написать функцию, которая возвращает максимальный элемент одномерного массива
Написать функцию, которая возвращает максимальный элемент одномерного массива.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru