snipt

Ctrl+h for KB shortcuts

Clojure

Clojure Fibonacci sequence v3

1
2
3
4
5
6
7
(defn fibo "print the fibnoacci sequence \"n\" times"
    [limit]
     {:pre [(>= limit 1)] }
       (loop [prev 1 next 1 count 0]
         (println (str count ":\t\t" prev))
         (if (< count limit)
              (recur next (+ prev next) (inc count)))))
https://snipt.net/embed/d6b7ff8a5eddd02a22040058d23e29c9/
/raw/d6b7ff8a5eddd02a22040058d23e29c9/
d6b7ff8a5eddd02a22040058d23e29c9
clojure
Clojure
7
2019-06-25T08:45:19
True
False
False
/api/public/snipt/18713/
clojure-fibonacci-sequence-v3
<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></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 \&quot;n\&quot; times&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="ss">:pre</span> <span class="p">[(</span><span class="nb">&gt;= </span><span class="nv">limit</span> <span class="mi">1</span><span class="p">)]</span> <span class="p">}</span> </span><span id="L-4"><a name="L-4"></a> <span class="p">(</span><span class="k">loop </span><span class="p">[</span><span class="nv">prev</span> <span class="mi">1</span> <span class="nb">next </span><span class="mi">1</span> <span class="nb">count </span><span class="mi">0</span><span class="p">]</span> </span><span id="L-5"><a name="L-5"></a> <span class="p">(</span><span class="nb">println </span><span class="p">(</span><span class="nb">str count </span><span class="s">&quot;:\t\t&quot;</span> <span class="nv">prev</span><span class="p">))</span> </span><span id="L-6"><a name="L-6"></a> <span class="p">(</span><span class="k">if </span><span class="p">(</span><span class="nb">&lt; count </span><span class="nv">limit</span><span class="p">)</span> </span><span id="L-7"><a name="L-7"></a> <span class="p">(</span><span class="nf">recur</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 class="p">(</span><span class="nb">inc </span><span class="nv">count</span><span class="p">)))))</span> </span></pre></div> </td></tr></table>
clojure