Lisp

gistfile1.lisp

;(defmacro while (conditions &body body)
;	'(loop while , condition
;)

(defun vector-product(x y)
	(reduce '+ 0 (map 'list #'* x y)))

(setq a (list (list 1 2) (list 3 4)))
(setq b (make-array '(2 2) :initial-element 2))
; 2 2
; 2 2
;(format t (write-to-string b))


;(setq result (vector-product '(10 20) '(-2 -3)))
;(format t (write-to-string result))


;(setq animals '("lion" "cat" "dog"))

;(defun reverse-list-while (list) (
;	let (tmp-list) 
;		(while list
;			(setq tmp-list (cons (car list) tmp-list))
;			(setq list (cdr list))
;		)
;	tmp-list)
;)

;(format t (write-to-string (reverse animals)))
;(format t (write-to-string (reverse-list-while animals)))

;(while (nth animals 0) 
;	(format t (nth animals 0))
;	(setq animals (cdr animals)))
;
(setq ans (make-array '(10) :initial-element 0))
(setq depth -1)

(defun calc-depth(lst)
	(let (elem-count)
		(unless (atom lst)
			(incf depth)
			(setq elem-count (list-length lst))
			(setf (aref ans depth) (+ elem-count (aref ans depth)))
			(format t (write-to-string elem-count))
;			(mapcar 'calc-depth lst (make-list elem-count :initial-element (+ depth 1)))
			(mapcar 'calc-depth lst)
			(decf depth)
		)
	)	
)

(setq data '((67) (3 5 6) ((23) 2) 33))
(calc-depth data)
(format t (write-to-string ans))

(make-list 2 :initial-element 3)