: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)
the body
a
b
c
"code block results"
(reverse lst)