(require '[clojure.spec.alpha :as s])
(s/def ::name string?)
(s/def ::align #{:law :neutral :chaos})
(s/def ::level pos-int?)
(s/def ::magic (s/coll-of string?))
(s/def ::profile
(s/keys :req-un [::name ::align ::level ::magic]))
(s/conform ::profile
{:name "r6eve"
:align :neutral
:level 5
:magic ["Functional & Object-oriented Programming"
"Perl-like Programming"
"AUR package maintenance"
"Pulinpa (against Linux Kernel)"]})
r6eve / caddy Goto Github PK
View Code? Open in Web Editor NEWThis project forked from shinh/caddy
a testing/squeezing/submission helper tool for golfers
Home Page: http://golf.shinh.org/
License: GNU General Public License v2.0