make-city-edges

gistfile1.lisp

(defun make-city-edges ()
  (let* ((nodes (loop for i from 1 to *node-num*
		    collect i))
	  (edge-list (connect-all-islands nodes(make-edge-list)))
	  (cops (remove-if-not (lambda (x) ;; xはremove-if-notへの引数として使用する。
				 (zerop (random *cop-odds*)))
			       edge-list)))
       (add-cops (edges-to-alist edge-list) cops)))