snipt

Ctrl+h for KB shortcuts

Clojure

Clojure Fizz Buzz v1

(defn is-fizz [n] (= 0 (mod n 3)))

(defn is-buzz [n] (= 0 (mod n 5)))

(defn is-fizzbuzz [n] (= 0 (mod n 15)))

(defn get-fizz-buzz [n]
    (cond
        (is-fizzbuzz n) "Fizz Buzz"
        (is-fizz n) "Fizz"
        (is-buzz n) "Buzz"
        :default n))

(defn fizz-buzz-seq
    ([] (fizz-buzz-seq 1))
    ([n] (lazy-seq
            (cons (get-fizz-buzz n) (fizz-buzz-seq (inc n))))))

(defn run
    "Prints out \"Fizz Buzz\" sequence to 36.
    Check against http://en.wikipedia.org/wiki/Fizzbuzz"
    []
    (dorun (map #(println %) (take 36 (fizz-buzz-seq)))))

(run)
https://snipt.net/embed/3450987b04ed5e95320ede6a312248bf/
/raw/3450987b04ed5e95320ede6a312248bf/
3450987b04ed5e95320ede6a312248bf
clojure
Clojure
25
2019-06-17T04:48:34
True
False
False
/api/public/snipt/19129/
clojure-fizz-buzz-v1
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1"> 1</a> <a href="#L-2"> 2</a> <a href="#L-3"> 3</a> <a href="#L-4"> 4</a> <a href="#L-5"> 5</a> <a href="#L-6"> 6</a> <a href="#L-7"> 7</a> <a href="#L-8"> 8</a> <a href="#L-9"> 9</a> <a href="#L-10">10</a> <a href="#L-11">11</a> <a href="#L-12">12</a> <a href="#L-13">13</a> <a href="#L-14">14</a> <a href="#L-15">15</a> <a href="#L-16">16</a> <a href="#L-17">17</a> <a href="#L-18">18</a> <a href="#L-19">19</a> <a href="#L-20">20</a> <a href="#L-21">21</a> <a href="#L-22">22</a> <a href="#L-23">23</a> <a href="#L-24">24</a> <a href="#L-25">25</a></pre></div></td><td class="code"><div class="highlight"><pre><span></span><span id="L-1"><a name="L-1"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">is-fizz</span> <span class="p">[</span><span class="nv">n</span><span class="p">]</span> <span class="p">(</span><span class="nb">= </span><span class="mi">0</span> <span class="p">(</span><span class="nf">mod</span> <span class="nv">n</span> <span class="mi">3</span><span class="p">)))</span> </span><span id="L-2"><a name="L-2"></a> </span><span id="L-3"><a name="L-3"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">is-buzz</span> <span class="p">[</span><span class="nv">n</span><span class="p">]</span> <span class="p">(</span><span class="nb">= </span><span class="mi">0</span> <span class="p">(</span><span class="nf">mod</span> <span class="nv">n</span> <span class="mi">5</span><span class="p">)))</span> </span><span id="L-4"><a name="L-4"></a> </span><span id="L-5"><a name="L-5"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">is-fizzbuzz</span> <span class="p">[</span><span class="nv">n</span><span class="p">]</span> <span class="p">(</span><span class="nb">= </span><span class="mi">0</span> <span class="p">(</span><span class="nf">mod</span> <span class="nv">n</span> <span class="mi">15</span><span class="p">)))</span> </span><span id="L-6"><a name="L-6"></a> </span><span id="L-7"><a name="L-7"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">get-fizz-buzz</span> <span class="p">[</span><span class="nv">n</span><span class="p">]</span> </span><span id="L-8"><a name="L-8"></a> <span class="p">(</span><span class="nf">cond</span> </span><span id="L-9"><a name="L-9"></a> <span class="p">(</span><span class="nf">is-fizzbuzz</span> <span class="nv">n</span><span class="p">)</span> <span class="s">&quot;Fizz Buzz&quot;</span> </span><span id="L-10"><a name="L-10"></a> <span class="p">(</span><span class="nf">is-fizz</span> <span class="nv">n</span><span class="p">)</span> <span class="s">&quot;Fizz&quot;</span> </span><span id="L-11"><a name="L-11"></a> <span class="p">(</span><span class="nf">is-buzz</span> <span class="nv">n</span><span class="p">)</span> <span class="s">&quot;Buzz&quot;</span> </span><span id="L-12"><a name="L-12"></a> <span class="ss">:default</span> <span class="nv">n</span><span class="p">))</span> </span><span id="L-13"><a name="L-13"></a> </span><span id="L-14"><a name="L-14"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">fizz-buzz-seq</span> </span><span id="L-15"><a name="L-15"></a> <span class="p">([]</span> <span class="p">(</span><span class="nf">fizz-buzz-seq</span> <span class="mi">1</span><span class="p">))</span> </span><span id="L-16"><a name="L-16"></a> <span class="p">([</span><span class="nv">n</span><span class="p">]</span> <span class="p">(</span><span class="nf">lazy-seq</span> </span><span id="L-17"><a name="L-17"></a> <span class="p">(</span><span class="nb">cons </span><span class="p">(</span><span class="nf">get-fizz-buzz</span> <span class="nv">n</span><span class="p">)</span> <span class="p">(</span><span class="nf">fizz-buzz-seq</span> <span class="p">(</span><span class="nb">inc </span><span class="nv">n</span><span class="p">))))))</span> </span><span id="L-18"><a name="L-18"></a> </span><span id="L-19"><a name="L-19"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">run</span> </span><span id="L-20"><a name="L-20"></a> <span class="s">&quot;Prints out \&quot;Fizz Buzz\&quot; sequence to 36.</span> </span><span id="L-21"><a name="L-21"></a><span class="s"> Check against http://en.wikipedia.org/wiki/Fizzbuzz&quot;</span> </span><span id="L-22"><a name="L-22"></a> <span class="p">[]</span> </span><span id="L-23"><a name="L-23"></a> <span class="p">(</span><span class="nb">dorun </span><span class="p">(</span><span class="nb">map </span><span class="o">#</span><span class="p">(</span><span class="nb">println </span><span class="nv">%</span><span class="p">)</span> <span class="p">(</span><span class="nb">take </span><span class="mi">36</span> <span class="p">(</span><span class="nf">fizz-buzz-seq</span><span class="p">)))))</span> </span><span id="L-24"><a name="L-24"></a> </span><span id="L-25"><a name="L-25"></a><span class="p">(</span><span class="nf">run</span><span class="p">)</span> </span></pre></div> </td></tr></table>
clojure