> 1 <

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

Яков Замир Кацман (нью)

Members


Статус

50 сообщений

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

#7828   2018-01-28 16:30 GMT+3 часа(ов)      
(defun predicat (alist)
(progn
(mapcar
#'(lambda (v)
(unless
(integerp v)
(return-from predicat "not all integer (FALSE)"))
) alist )
(return-from predicat "all integer (TRUE)")
)
)
 
(predicat (list 0 1 2 3 4 6 7 ))
(predicat (list 0 "V" 2 3 4 6 7 ))

отредактировал(а) Яков Замир Кацман (нью): 2018-01-28 16:43 GMT+3 часа(ов)
> 1 <


Онлайн :

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




Реклама на сайте: