Clojure Базовые идеи языка Lisp

;; Определяем функцию f
(defun f (x y) (+ (* x x) (* y y)))
 
==> f
 
;; присваиваем символу f значение 111
 
(setf f 111)
 
==> 111
Ñîçäàíà ãëîáàëüíàÿ ïåðåìåííàÿ f
 
;; чему равно значение f ?
 
f
 
==> 111
 
;; вывов функции
 
(f 3 4)
 
==> 25
 
;; Запрос списка свойств символа f
 
(proplist 'f)
 
==> (EXPR)  ;; список свойств включает символ EXPR - это значит, что f - это обычная функция Лиспа

(putprop 'ягода 'цвет 'красный) ;; символу ЯГОДА создаем индикатор ЦВЕТ со значением КРАСНЫЙ
 
==> ягода
 
(putprop 'ягода 'вкус 'кислый) ;; символу ЯГОДА создаем индикатор ВКУС со значением КИСЛЫЙ
 
==> ягода
 
(getprop 'ягода 'вкус) ;; проверка вкуса
 
==> кислый
 
(getprop 'ягода 'цвет) ;; проверка цвета
 
==> красный
 
(getprop 'ягода 'размер) ;; проверка размера (нет такого свойства)
 
==> NIL
 
(proplist 'ягода) ;; можно посмотреть весь список свойств
 
==> (цвет красный вкус кислый)

(grwCreate 'w 200 200 "Окошечко" _WHITE) ;; создаем окно
 
==> w
 
(proplist 'w) ;; смотрим его список свойств
 
==> (WINDOW width 200 height 200 title "Окошечко" backcolor &HFFFFFF WINHANDLE 1)

(defun pfiltr (x flg) 
    (cond ((null x) nil)
             ((member flg (proplist (car x))) (cons (car x) (pfiltr (cdr x) flg)))
             (t (pfiltr (cdr x) flg))))
 
==> pfiltr
 
(pfiltr '(1 2 3 1.2 1.3 "ggg" "rrr") FIXED)
 
==> (1 2 3)
 
(pfiltr '(1 2 3 1.2 1.3 "ggg" "rrr") FLOAT)
 
==> (1.200000000000000E+0 1.300000000000000E+0)
 
(pfiltr '(1 2 3 1.2 1.3 "ggg" "rrr") STRING)
 
==> ("ggg" "rrr")

;; вот список:
 
'(((dv) (((dt))) g (cc (x (y (((z))))))))
 
==> (((dv) (((dt))) g (cc (x (y (((z))))))))
 
;; а вот его точечная запись:
 
(((dv . NIL) . ((((dt . NIL) . NIL) . NIL) . (g . ((cc . ((x . ((y . ((((z . NIL) . NIL) . NIL) . NIL)) . NIL)) . NIL)) . NIL)))) . NIL)

'(a . b)
 
==> (a . b)  ;; точ. пара
 
(dotprint '(a b))
 
==> (a . (b . NIL))  ;; список