> 1 <

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

Julia

Members


Статус

1 сообщений

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

#5356   2011-12-18 17:09 GMT+3 часа(ов)      
Помогите решить задачки:
1) Напишите функцию (f А N), которая выдает список, получающийся из списка А увеличением вхождения каждого элемента на N , например, (f (1 2 3) 4) = (1 1 1 1 2 2 2 2 3 3 3 3).

2)Определите функцию (f а n), которая от двух числовых аргументов вычисляет величину
а+а*(а+1 )+а*(а+1 )*(а+2)+...+а*(а+1 )* ...*(а+n).

Заранее спасибо =)

abelix

Members


Статус

2 сообщений

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

#5359   2011-12-18 19:56 GMT+3 часа(ов)      
Задача 1
Может кто получше напишет, я не против так,как только учусь

(defun f*n (a n); наращивание атома N раз
(if (= n 0)
()
(append (list a) (f*n a (- n 1))
)
)
)
 
(defun f (a n) ; наращивание каждого атома списка N раз
(if (null a)
()
(append (f*n (car a) n) (f (cdr a) n)
)
)
)
> 1 <


Онлайн :

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