> 1 <

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

HornOfWar

Members


Статус

3 сообщений

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

#6143   2012-05-11 22:19 GMT+3 часа(ов)      
Дан список, элементы которого натуральные числа. Заменить их на число 1, если исходное число отрицательное, и на 0 - в противном случае.


Спасибо большое!)

bokunopico

Members


Статус

54 сообщений

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

#6145   2012-05-11 23:07 GMT+3 часа(ов)      
Наверное, целые, а не натуральные, потому что отрицательные целые числа не будут натуральными.
defun f (xs)

  (with-list-monad

    (let! ((x xs))

          (unit (if (minusp x) 1 0)))))

 

CL-USER> (f '(1 2 3 -4))

(0 0 0 1)
> 1 <


Онлайн :

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