> 1 <

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

Басард

Members


Статус

1 сообщений

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

#6762   2012-11-16 00:07 GMT+3 часа(ов)      
Здравствуйте дорогие друзья! Я слезно прошу помощи... Задачки небольшие но ЛИСП мне не дается к пониманию как не стараюсь. Помогите пожалуйста! Нужно очень срочно.
Задачи:
1) Создать программу, вычисляющую количество элементов больших 5 из введенного списка.
2) Дан список из 10 целых чисел. Составить программу, вычисляющую сумму всех положительных нечетных чисел.
Если не сложно прошу контрольный пример ввода если не сложно... Пожалуйста.

Aoloa

Members


Статус

37 сообщений

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

#6765   2012-11-18 16:44 GMT+3 часа(ов)      
Цитата
1) Создать программу, вычисляющую количество элементов больших 5 из введенного списка.

(defun sum-if->5 (l)
(length (remove-if #'(lambda (x) (<= x 5))
l)))
 
;; Пример работы:
(sum-if->5 '(1 2 3 4 5 6 7 8))
;; Результат: 3


Цитата
2) Дан список из 10 целых чисел. Составить программу, вычисляющую сумму всех положительных нечетных чисел.

(defun sum-even-positive (l)
(apply #'+
(remove-if #'(lambda (x) (or (< x 1)
(= (mod x 2) 0)))
l)))
 
;; Пример работы:
(sum-even-positive '(1 2 3 4 5 6 7 8))
;; Результат: 16
With iTeX* your entire life can be encapsulated into a dynamic hyperdocument, downloadable by anybody you designate (Donald E. Knuth, An Earthshaking Announcement)
> 1 <


Онлайн :

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