Create a gist now

Instantly share code, notes, and snippets.

@youz /vote.clj
Created Sep 18, 2014

(prn(if(re-seq #"^(OO)*X?(OO)*$"(apply str(repeatedly 30 read-line)))'yes 'no))
(princ(if(regexp:match"^\\(OO\\)*X\\?\\(OO\\)*$"(format()"~{~A~}"(loop
while(listen)collect(read))))"yes""no"))
puts $<.read.delete('\n').match(/^(OO)*X?(OO)*$/)?'yes':'no'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment