: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