snipt

Ctrl+h for KB shortcuts

Clojure

Clojure Fibonacci sequence v1

(defn fibo "print the fibnoacci sequence to the given limit"
    ([limit]
        (cond
            (<= limit 0) (throw (new IllegalArgumentException "Sneaky! But no."))
            (= limit 1) (println 1)
            :else (fibo limit 1 2)))

    ([limit prev next]
        (println prev)
        (if (< next limit)
            (fibo limit next (+ prev next)))))
https://snipt.net/embed/3fe284d67a98d011722692570bdc7159/
/raw/3fe284d67a98d011722692570bdc7159/
3fe284d67a98d011722692570bdc7159
clojure
Clojure
11
2019-06-17T05:40:26
True
False
False
/api/public/snipt/18715/
clojure-fibonacci-sequence-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></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">fibo</span> <span class="s">&quot;print the fibnoacci sequence to the given limit&quot;</span> </span><span id="L-2"><a name="L-2"></a> <span class="p">([</span><span class="nv">limit</span><span class="p">]</span> </span><span id="L-3"><a name="L-3"></a> <span class="p">(</span><span class="nf">cond</span> </span><span id="L-4"><a name="L-4"></a> <span class="p">(</span><span class="nb">&lt;= </span><span class="nv">limit</span> <span class="mi">0</span><span class="p">)</span> <span class="p">(</span><span class="nf">throw</span> <span class="p">(</span><span class="k">new </span><span class="nv">IllegalArgumentException</span> <span class="s">&quot;Sneaky! But no.&quot;</span><span class="p">))</span> </span><span id="L-5"><a name="L-5"></a> <span class="p">(</span><span class="nb">= </span><span class="nv">limit</span> <span class="mi">1</span><span class="p">)</span> <span class="p">(</span><span class="nb">println </span><span class="mi">1</span><span class="p">)</span> </span><span id="L-6"><a name="L-6"></a> <span class="ss">:else</span> <span class="p">(</span><span class="nf">fibo</span> <span class="nv">limit</span> <span class="mi">1</span> <span class="mi">2</span><span class="p">)))</span> </span><span id="L-7"><a name="L-7"></a> </span><span id="L-8"><a name="L-8"></a> <span class="p">([</span><span class="nv">limit</span> <span class="nv">prev</span> <span class="nv">next</span><span class="p">]</span> </span><span id="L-9"><a name="L-9"></a> <span class="p">(</span><span class="nb">println </span><span class="nv">prev</span><span class="p">)</span> </span><span id="L-10"><a name="L-10"></a> <span class="p">(</span><span class="k">if </span><span class="p">(</span><span class="nb">&lt; next </span><span class="nv">limit</span><span class="p">)</span> </span><span id="L-11"><a name="L-11"></a> <span class="p">(</span><span class="nf">fibo</span> <span class="nv">limit</span> <span class="nb">next </span><span class="p">(</span><span class="nb">+ </span><span class="nv">prev</span> <span class="nv">next</span><span class="p">)))))</span> </span></pre></div> </td></tr></table>
clojure