Skip to content

Instantly share code, notes, and snippets.

@phillord
Created March 15, 2013 15:52
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save phillord/5170865 to your computer and use it in GitHub Desktop.
Save phillord/5170865 to your computer and use it in GitHub Desktop.
(ns scratch_clj.eye
(:use [tawny.owl]))
(defontology things
:iri "http://example.org"
:prefix "exam:")
(defoproperty partOf)
(defoproperty hasPart)
(defoproperty developsFrom)
(defclass Head)
(defclass Tail)
(defclass Eye
:subclass
(owlsome partOf Head)
(owlnot
(owlsome partOf Tail)))
(doall
(map
#(add-subclass
(owlnot (owlsome hasPart %))
(owlnot (owlsome hasPart
(owlsome developsFrom %))))
(.getClassesInSignature things true)))
(save-ontology "eye.owl" :owl)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment