> 1 <

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

Herr_Lehmann

Members


Статус

12 сообщений

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

#5858   2012-03-08 04:42 GMT+3 часа(ов)      
Доброго время суток.
В универе учил Scheme, решил изучить CL, изучаю по книжке ANSI common lisp
Возник вопрос, в книге ответа не нашел (возможно плохо смотрел)
в схеме можно сделать вот так
 
(define (bla a b c)
(a b c))
 
>(bla + 1 2)
3
>(bla - 2 1)
1
 

а как подобное сделать в CL?
Заранее благодарю за ответ

отредактировал(а) Herr_Lehmann: 2012-03-08 09:54 GMT+3 часа(ов)

dgee519

Members


Статус

4 сообщений

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

#5861   2012-03-08 06:02 GMT+3 часа(ов)      
У меня так получилось
 
CL-USER> (defun test(a b c) (funcall a b c))
CL-USER> (test #'+ 1 2)
3
 

Herr_Lehmann

Members


Статус

12 сообщений

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

#5862   2012-03-08 09:53 GMT+3 часа(ов)      
Хм... действительно работает.
я вроде funcall пробовал, но вываливалась какая-то ошибка
UPD: Спасибо за быстрый ответ
> 1 <


Онлайн :

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




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