(defun f_x ()

	(loop for x from 0 to 1 by 0.1

		  collect

		  (loop for y from 0 to 1 by 0.1

				collect 

			   (list x y ( + (* y y) (* x x) )) 

		  )

	)

)

 

 (defun f_x ()

	(do ((x 0 (+ x 0.1)))((> x 1)) collect

              (do ((y 0 (+ y 0.1)))((> y 1)) collect

			   (list x y ( + (* y y) (* x x) )) 

		  )

	)

 )

(defun recursion1 (a)

 (cond  ((< a 10) 

          (progn 

			 (format t "entering recursion1(~A)~\%" a) 

			 (recursion1 (+ a 1))

		  )

	    )

      (t (print "le fin" ))

 )

)

(defun recursion-main (&optional (x 0) (y 0))

	(cond 

		( (< y 1.0) 

			 (recursion-main x (+ 0.1 y))

		  (< x 1.0) 

			 ( progn 

			  (format t "entering recursion(~A)~\%" (+ x y)) 

			  (recursion-main (+ 0.1 x) y)

			 )

		)	

	)

)

(recursion-main 0.0 0.0)

(recursion-main)

(recursion-main 0.0 0.0 (+ x y)) вот то, что я хочу передать

 

вот так это работает с макросом::

 

(defmacro f_x (&rest body)

	`(loop for x from 0 to 1 by 0.1

		  collect

		  (loop for y from 0 to 1 by 0.1

				collect 

			   (list x y ,@body) 

		  )

	 )

)

(f_x ( + (* y y) (* x x) ))

Цитата

---

Почему один фрагмент кода (верхний) прекрасно работает, а второй нет?

---

 

 (defun f_x1 ()

	(do ((x 0 (+ x 0.1))

	     (r nil (cons (do ((y 0 (+ y 0.1))

	                       (r nil (cons (list x y ( + (* y y) (* x x))) 

	                                    r)))

	                      ((> y 1) (nreverse r))) 

			          r)))

		((> x 1) (nreverse r))))

Цитата

---

(f_x ( + (* y y) (* x x) ))

Но хочется сделать через рекурсию и без макросов. Среда LispWorks.
выходные данные точки окружности.

---

(f_x (lambda (x y) ( + (* y y) (* x x))))

Цитата

---

Немного смущает "r" которое здесь повторяется 6(!) раз.

---

Цитата

---

И nreverse, которое используется, как мне кажется, не по назначению.

---

(do ((x 0 (+ x 0.1)))

	((> x 1)) 

	(do ((y 0 (+ y 0.1)))

	((> y 1)) 

	(format t "~,2f - ~,2f : ~,4f ~%" x y ( + (* y y) (* x x)))

	)	

)

 

(let (c)	

	(block nested-loops			

		(do ((x 0 (+ x 0.1)))

			((> x 1)) 

				(do ((y 0 (+ y 0.1)))

					((> y 1))

					 (push ( + (* y y) (* x x)) c)

				)	

		)

	(return-from nested-loops c)

	)

)