;;; Node degrees ;;; uses adjacency-list form (load "p84.lisp") (defun degree (graph node) (length (neighbors node graph)) )