ampersanda/candles.clj

Created November 9, 2019 04:42

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/ampersanda/3ceec241e71a2c336a298810bb913ecc.js"></script>
Save ampersanda/3ceec241e71a2c336a298810bb913ecc to your computer and use it in GitHub Desktop.

Download ZIP

Code Signal - Candles

Raw

candles.clj

(defn candles[c n]{:pre[(not(nil? c))(>= c 1)(<= c 15)(not (nil? n))(>= n 2)(<= n 5)]}(if(> n c)c(loop [r c b [c]](let[m (mod r n)f(int(double(/ r n)))](if(<= r n)(reduce + (flatten[b f]))(recur(+ m f)(conj b f)))))))

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