gistfile1.clj

(ns net.experimentalworks.clojure.outdegree
    (:import
        (edu.kit.ipd.sonar.server.centralities Centrality
                 Centrality$Type CentralityImpl)
        (java.util HashMap))
    (:gen-class
        :extends edu.kit.ipd.sonar.server.centralities.CentralityImpl))

(defn -getType [this] Centrality$Type/NodeCentrality)
(defn -getName [this] "Outdegree (Clojure)")
(defn -getVersion [this] 1)
(defn -getRequiredAPIVersion [this] 0)
(defn -getWeight[this graph]
    (let [nodes (.values (.getNodeList graph)) result (new HashMap)]
     (doseq [node nodes]
      (.put result node
       (double
        (count (filter #(.isOutgoingEdge % node) (.getEdgeList graph))))))
     result)
    )