Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 4
1

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

19.12.2014, 14:12. Просмотров 739. Ответов 4
Метки нет (Все метки)


Определить функцию, которая проверяет, все ли элементы списка являются числами.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2014, 14:12
Ответы с готовыми решениями:

Функция, которая проверяет, являются ли все элементы списка положительными числами
Помогите понять, в чем ошибка. Нужно-ли третье условие? Если в списке числа (положительные) то...

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

Рекурсия. Являются ли все элементы входного списка числами
Добрый день! Помогите, пожалуйста, написать рекурсивную функцию-предикат на Лиспе, проверяющую,...

Определить функцию, удаляющую из списка все элементы
Уважаемые знатоки, вопрос! Определить функцию, удаляющую из списка все элементы, являющиеся...

4
1978 / 1082 / 87
Регистрация: 29.11.2013
Сообщений: 3,354
19.12.2014, 14:55 2
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
;; racket-lang.org
(define (andmap f lst)
  (if (null? lst)
      #t
      (and (f (car lst)) (andmap f (cdr lst)))))
 
(andmap number? '(1 2 3))
;#t
(andmap string? '("z" "a" "s"))
;#t
(andmap number? '("z" "a" "s"))
;#f
2
4320 / 3329 / 339
Регистрация: 12.03.2013
Сообщений: 5,828
19.12.2014, 15:13 3
Цитата Сообщение от Vahagn1993 Посмотреть сообщение
Определить функцию, которая проверяет, все ли элементы списка являются числами.
http://www.lispworks.com/docum... everyc.htm
http://www.lispworks.com/docum... f_nump.htm
1
Модератор
Эксперт Python
28359 / 15259 / 3009
Регистрация: 12.02.2012
Сообщений: 24,984
Записей в блоге: 4
19.12.2014, 16:46 4
HomeLisp:

Lisp
1
2
(defun task (lst)
  (forall lst #'numberp))
Добавлено через 1 минуту
А если по-честному, то так:

Lisp
1
2
3
(defun task (lst)
  (dolist (i lst t)
    (unless (numberp i) (return nil)))
2
4478 / 4192 / 350
Регистрация: 12.05.2012
Сообщений: 2,952
19.12.2014, 23:17 5
Lisp
1
2
3
4
5
6
7
(defun every-numberp (w)
  (eval (cons 'and (mapcar #'numberp w))))
 
> (every-numberp '(a 1)) 
NIL
> (every-numberp '(1 1)) 
T
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
(defun every-numberp (w)
  (loop for a in w always (numberp a)))
 
> (every-numberp '(a 1)) 
NIL
> (every-numberp '(1 1)) 
T
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
8
(defun every-numberp (w)
  (cond ((null w) t)
        ((numberp (car w)) (every-numberp (cdr w)))))
 
> (every-numberp '(a 1)) 
NIL
> (every-numberp '(1 1)) 
T
Добавлено через 56 секунд
Lisp
1
2
3
4
5
6
7
8
(defun every-numberp (w)
  (cond ((null w))
        ((numberp (car w)) (every-numberp (cdr w)))))
 
> (every-numberp '(1 1)) 
T
> (every-numberp '(a 1)) 
NIL
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
(defun every-numberp (w)
  (if w (when (numberp (car w)) (every-numberp (cdr w))) t))
 
> (every-numberp '(a 1)) 
NIL
> (every-numberp '(1 1)) 
T
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
(defun every-numberp (w)
  (if w (and (numberp (car w)) (every-numberp (cdr w))) t))
 
> (every-numberp '(1 1)) 
T
> (every-numberp '(a 1))
NIL
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
(defun every-numberp (w)
  (or (null w) (and (numberp (car w)) (every-numberp (cdr w)))))
 
> (every-numberp '(a 1))
NIL
> (every-numberp '(1 1)) 
T
3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2014, 23:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

Определить функцию, которая удаляет все положительные числа из многоуровнего списка
Помогите пожалуйста решить задачу на экзамене! Необходимо определить функцию которая из...

написать функцию которая вычисляет разность множеств X\Y, т.е. исключает из списка X все элементы, встречающиеся в списке Y
написать функцию которая вычисляет разность множеств X\Y, т.е. исключает из списка X все элементы,...

Определите функцию (f s), которая в одноуровневом списке чисел s переставляет все отрицательные элементы в начало списка
Определите функцию (f s), которая в одноуровневом списке чисел s переставляет все отрицательные...


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

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

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