:noweb
header argument expansion
:noweb
header argument expansion
(message "expanded")
;; noweb-yes-start <<noweb-example>> ;; noweb-yes-end
;; noweb-no-start <<noweb-example>> ;; noweb-no-end
;; noweb-tangle-start <<noweb-example>> ;; noweb-tangle-end
prop
4
(message "not to be tangled")
(message "for tangling")
(list 1 2 3 4)
(length four)
4
(map 'list #'list numbers letters)
1 | a |
2 | b |
3 | c |
4 | d |
5 | e |
6 | f |
7 | g |
42
42
42
(defun pascals-triangle (n) (if (= n 0) (list (list 1)) (let* ((prev-triangle (pascals-triangle (- n 1))) (prev-row (car (reverse prev-triangle)))) (append prev-triangle (list (map 'list #'+ (append prev-row '(0)) (append '(0) prev-row))))))) (pascals-triangle n)
(sqrt n)
69fbe856
-ca9c-4f20-9146-826d2f488c