snipt

Ctrl+h for KB shortcuts

Clojure

Clojure Fibonacci sequence v5

(defn fibo-seq
    "returns a sequence containing the fionacci sequence starting from 1"
    ([] (fibo-seq 1 1)) ;; default, calls into below function
    ([curr next] (lazy-seq
                    (cons curr (fibo-seq next (+ curr next))))))

(defn println-labled [count v]
    (println (str count ":\t" v)))

(defn print-seq-formatted
  "prints the first n of a sequence, formated."
  [sequence limit formatfn] {:pre [(>= limit 1)]}
  (loop [s (take limit (sequence)) count 1]
    (if (not (empty? s))
      (do
        (formatfn count (first s))
        (recur (rest s) (inc count))))))

(defn print-fibo [limit] (print-seq-formatted fibo-seq limit println-labled))
https://snipt.net/embed/25290bcf11db04218b00a73a40b8f385/
/raw/25290bcf11db04218b00a73a40b8f385/
25290bcf11db04218b00a73a40b8f385
clojure
Clojure
20
2019-08-25T09:26:03
True
False
False
/api/public/snipt/18895/
clojure-fibonacci-sequence-v5
<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></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-seq</span> </span><span id="L-2"><a name="L-2"></a> <span class="s">&quot;returns a sequence containing the fionacci sequence starting from 1&quot;</span> </span><span id="L-3"><a name="L-3"></a> <span class="p">([]</span> <span class="p">(</span><span class="nf">fibo-seq</span> <span class="mi">1</span> <span class="mi">1</span><span class="p">))</span> <span class="c1">;; default, calls into below function</span> </span><span id="L-4"><a name="L-4"></a> <span class="p">([</span><span class="nv">curr</span> <span class="nv">next</span><span class="p">]</span> <span class="p">(</span><span class="nf">lazy-seq</span> </span><span id="L-5"><a name="L-5"></a> <span class="p">(</span><span class="nb">cons </span><span class="nv">curr</span> <span class="p">(</span><span class="nf">fibo-seq</span> <span class="nb">next </span><span class="p">(</span><span class="nb">+ </span><span class="nv">curr</span> <span class="nv">next</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">println-labled</span> <span class="p">[</span><span class="nb">count </span><span class="nv">v</span><span class="p">]</span> </span><span id="L-8"><a name="L-8"></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&quot;</span> <span class="nv">v</span><span class="p">)))</span> </span><span id="L-9"><a name="L-9"></a> </span><span id="L-10"><a name="L-10"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">print-seq-formatted</span> </span><span id="L-11"><a name="L-11"></a> <span class="s">&quot;prints the first n of a sequence, formated.&quot;</span> </span><span id="L-12"><a name="L-12"></a> <span class="p">[</span><span class="nv">sequence</span> <span class="nv">limit</span> <span class="nv">formatfn</span><span class="p">]</span> <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><span id="L-13"><a name="L-13"></a> <span class="p">(</span><span class="k">loop </span><span class="p">[</span><span class="nv">s</span> <span class="p">(</span><span class="nb">take </span><span class="nv">limit</span> <span class="p">(</span><span class="nf">sequence</span><span class="p">))</span> <span class="nb">count </span><span class="mi">1</span><span class="p">]</span> </span><span id="L-14"><a name="L-14"></a> <span class="p">(</span><span class="k">if </span><span class="p">(</span><span class="nb">not </span><span class="p">(</span><span class="nf">empty?</span> <span class="nv">s</span><span class="p">))</span> </span><span id="L-15"><a name="L-15"></a> <span class="p">(</span><span class="nf">do</span> </span><span id="L-16"><a name="L-16"></a> <span class="p">(</span><span class="nf">formatfn</span> <span class="nb">count </span><span class="p">(</span><span class="nb">first </span><span class="nv">s</span><span class="p">))</span> </span><span id="L-17"><a name="L-17"></a> <span class="p">(</span><span class="nf">recur</span> <span class="p">(</span><span class="nb">rest </span><span class="nv">s</span><span class="p">)</span> <span class="p">(</span><span class="nb">inc </span><span class="nv">count</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">print-fibo</span> <span class="p">[</span><span class="nv">limit</span><span class="p">]</span> <span class="p">(</span><span class="nf">print-seq-formatted</span> <span class="nv">fibo-seq</span> <span class="nv">limit</span> <span class="nv">println-labled</span><span class="p">))</span> </span></pre></div> </td></tr></table>
clojure