Untitled

SUBMITTED BY: antoineh1

DATE: May 8, 2016, 8:31 p.m.

FORMAT: Text only

SIZE: 339 Bytes

Raw Download

HITS: 4053

Report

; Sucet poslednych 2 prvkov lin. zoznamu

(defun last1 (N)
	(cond
		((NULL N) nil)
		((NULL (rest N)) (first N))
		(t (last1 (rest N)))
	)
)

(defun last2 (N)
	(cond
		((NULL N) nil)
		((NULL (rest N)) (first S))
		(t (last1 (rest N)))
	)
)

(defun sucet_last (N)
		(+ (last1(N)) (last2(N)))
)

(sucet_last '(1 2 3) )