Cái này để làm gì?

Ví dụ trong định nghĩa của -firstchúng tôi có:

(--first (funcall pred it) list))

Đương nhiên, ý nghĩa của "nó" là rất khó để google hoặc tìm kiếm trong hướng dẫn.

Trên thực tế, nó có ngay trong hướng dẫn: https://github.com/magnars/dash.el#anaphoric-fifts .

Cập nhật: kiểm tra và làm phẳng các macro

Nếu bạn đang sử dụng lispy , hãy bắt đầu bằng:

;; anaphoric version
(--map (* it it) '(1 2 3 4))

và điểm trước (--map, bạn có thể nhấn xfđể gọi lispy-flattenvà lấy:

;; anaphoric version
(mapcar (lambda (it) (* it it)) (quote (1 2 3 4)))

Mã này phức tạp hơn một chút, vì dấu gạch ngang quá háo hức để ủy thác và hoãn lại:

(--reduce (max it acc) '(1 2 3 4))

Sau xfM:

(let ((list-value (quote (1 2 3 4))))
  (if list-value (--reduce-from (max it acc)
                                (car list-value)
                                (cdr list-value))
    (let (acc it)
      (max it acc))))

Sau fjfxfM:

(let ((list-value (quote (1 2 3 4))))
  (if list-value (let ((acc (car list-value)))
                   (--each (cdr list-value)
                     (setq acc (max it acc)))
                   acc)
    (let (acc it)
      (max it acc))))

Sau fjxfM:

(let ((list-value (quote (1 2 3 4))))
  (if list-value (let ((acc (car list-value)))
                   (let ((list (cdr list-value))
                         (it-index 0))
                     (while list (let ((it (car list)))
                                   (setq acc (max it acc)))
                            (setq it-index (1+ it-index))
                            (!cdr list)))
                   acc)
    (let (acc it)
      (max it acc))))

Đủ để nói, đó itlà var lặp ngầm định và acclà var tích lũy ngầm.

Tại một thời điểm, tôi đã cố gắng thêm một bản vá lambda ngắn vào Emacs để kích hoạt ký hiệu này, điều mà tôi nghĩ là đơn giản hơn các macro anaphoric:

(map #(* % %) '(1 2 3 4))
(cl-reduce #(max %1 %2) '(1 2 3 4))

Tuy nhiên, nó đã đi đến đâu.