Dotaz: Lisp / Scheme

[prussian]

Hram sa trosku s Common Lispom a snazim sa ho naucit. napisal som funkcionalnu implementaciu cyklu for:

(defun for-loop (min max func)
  (func min)
  (if (= min max) () (for-loop (+ min 1) max func)))

(for-loop 1 4 (lambda (i) (print i)))

ale hadze to chybu "EVAL: undefined function FUNC"

v Scheme mi podobna funkcia normalne funguje:

(define (for-loop min max func)
  (func min)
  (if (= min max) (void) (for-loop (+ min 1) max func)))

(for-loop 1 4 (lambda (i) (display i)))

kde môže byť chyba?

---

---

Odpovědi

[jas]

Treba pouzit funkciu, ktora zavola funkciu func pre argument min (napr. funcall alebo apply). Spravne je to napr. takto (aj ked aj volanie cez lambda by malo fungovat, kazdopadne lepsie by tam bolo mat #' pred (lambda ...))

(defun for-loop (min max func)
  (funcall func min)
  (if (= min max) () (for-loop (+ min 1) max func)))
(for-loop 1 4 #'print)

[Goheeca]

Common Lisp je tzv. Lisp-2 a Scheme Lisp-1 (číslo značí počet jmenných prostorů) oboje má své výhody a nevýhody a vedou se o tom flamewary. Tzn., že pro zavolání funkce uložené jako hodnota proměnné je potřeba použít funcall a pro získání funkce jako hodnoty do proměnné z názvu function neboli #', jak už psal kolega. Nějaké povídání je tady.