ypsilon-takai/gcj_prac1.clj

Created September 13, 2011 10:13

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/ypsilon-takai/1213533.js"></script>
Save ypsilon-takai/1213533 to your computer and use it in GitHub Desktop.

Download ZIP

GCJJ Practice1

Raw

gcj_prac1.clj

	(defn snapper [N K]
	(if (= (repeat N \1) (take N (reverse (Integer/toBinaryString K))))
	"ON"
	"OFF"))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment