Page 1 of 1

example not very clear on 'apply'...

Posted: Sun Oct 14, 2012 6:06 am
by megera
HI
I'm reading an example of code that use apply built-in..but a step isn't clear to me:
ps. this function take a compress list as ((3 1) 0 1 (4 0) 1)) and return (1 1 1 0 1 0 0 0 0 1)

Code: Select all

(defun uncompress (lst)
	   (if (null lst)
	        nil
	       (let ((elt (car lst))
		     (rest (uncompress (cdr lst))))
		  (if (consp elt)
		      (append (apply #' list_of elt)
			     rest)
		      (cons elt rest)))))

(defun list_of (n elt)
	   (if (zerop n)
	        nil
	       (cons elt (list_of (- n 1) elt))))

well," list_of" func take two arg of course, but why when "uncompress" func give it only one arg through apply ( for ex. when elt value is one integer and not a nested list of pair) this function doesn't raise error???
thanks again in advance!!
ps. sorry for wrong inidentation in the first defun (the second if belongs to let declaration), in preview works, but not when printed....(???)

Re: example not very clear on 'apply'...

Posted: Sun Oct 14, 2012 6:33 am
by Goheeca
The elt argument is never an integer because of testing on consp.
and this raises an error for me:

Code: Select all

(defun test (a b) (+ a b))
(apply #'test 1)
(apply #'test 1 nil)
(apply #'test '(1))

Re: example not very clear on 'apply'...

Posted: Sun Oct 14, 2012 6:48 am
by megera
ohhhh!!thanks!! my distraction! sorry ;)
(car lst) in this example can return or integer or a nested list!!, then only when return a list it'll valued true by consp...
I wrongly considered also the case like '(1) but car never return that in this example...
thanks for your help!