LINUX.ORG.RU

История изменений

Исправление Zubok, (текущая версия) :

В Common Lisp:

;; фунция возвращает два значения (можно больше)
(defun polar (x y) 
  (values (sqrt (+ (* x x) (* y y))) (atan y x))) 

Ну и, соответственно, есть ряд функций, которые принимают эти множественные значения. Например, multiple-value-bind.

Исправление Zubok, :

В Common Lisp:

;; фунция возвращает два значения (можно больше)
(defun polar (x y) 
  (values (sqrt (+ (* x x) (* y y))) (atan y x))) 

Ну и, соответственно, есть ряд функций, которые принимают эти множественные значения. Например, multiple-value-bind.

Исходная версия Zubok, :

В Common Lisp:

;; фунция возвращает два значения (можно больше)
(defun polar (x y) 
  (values (sqrt (+ (* x x) (* y y))) (atan y x))) 

Ну и, соответственно, есть ряд функций, которые принимают эти множественные значения. Например, multiple-value-bind.