snipt

Ctrl+h for KB shortcuts

Clojure

Clojure Caesar Cipher (incomplete) v0.1

*warn-on-reflection*
(require '(clojure.contrib [str-utils2 :as s]))

(declare rot-message
         rot-char
         ascii-uppercase-letter-or-space?)

(defn rot-message
    "cipher a message via caesarian rotation.
     Accepts only uppercase ascii and spaces."
    [message i]
    (s/map-str #(rot-char % i) message))

;; TODO: not done. Doesn't wrap around.
(defn rot-char
    "caesar cipher function
     c - a single ascii character, A - Z
     i - the factor by which to rotate the character if letter A-Z.
           Valid values are 0 - 25"
    [c i] {:pre [(>= i 0) (< i 25) (ascii-uppercase-letter-or-space? c)]}
    (if (.equals c \space)
        c 
        (char (+ (int c) i))))

;; TODO: could use various static methods of java.lang.Character here...
(defn ascii-uppercase-letter-or-space?
    "checks if a character is an uppercase ascii letter"[c]
    (and (char? c)
         (or (.equals c \space)
             (let [compared-to-A (compare c \A)
                   compared-to-Z (compare c \Z)]
                   (or (= 0 compared-to-A)
                       (= 0 compared-to-Z)
                       (and (pos? compared-to-A) (neg? compared-to-Z)))))))
https://snipt.net/embed/9f105ef9a54c72d9ca43227bc7ba29b0/
/raw/9f105ef9a54c72d9ca43227bc7ba29b0/
9f105ef9a54c72d9ca43227bc7ba29b0
clojure
Clojure
34
2019-06-17T05:15:24
True
False
False
/api/public/snipt/19649/
clojure-caesar-cipher-incomplete-01
<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> <a href="#L-26">26</a> <a href="#L-27">27</a> <a href="#L-28">28</a> <a href="#L-29">29</a> <a href="#L-30">30</a> <a href="#L-31">31</a> <a href="#L-32">32</a> <a href="#L-33">33</a> <a href="#L-34">34</a></pre></div></td><td class="code"><div class="highlight"><pre><span></span><span id="L-1"><a name="L-1"></a><span class="nv">*warn-on-reflection*</span> </span><span id="L-2"><a name="L-2"></a><span class="p">(</span><span class="nf">require</span> <span class="o">&#39;</span><span class="p">(</span><span class="nf">clojure.contrib</span> <span class="p">[</span><span class="nv">str-utils2</span> <span class="ss">:as</span> <span class="nv">s</span><span class="p">]))</span> </span><span id="L-3"><a name="L-3"></a> </span><span id="L-4"><a name="L-4"></a><span class="p">(</span><span class="kd">declare </span><span class="nv">rot-message</span> </span><span id="L-5"><a name="L-5"></a> <span class="nv">rot-char</span> </span><span id="L-6"><a name="L-6"></a> <span class="nv">ascii-uppercase-letter-or-space?</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="kd">defn </span><span class="nv">rot-message</span> </span><span id="L-9"><a name="L-9"></a> <span class="s">&quot;cipher a message via caesarian rotation.</span> </span><span id="L-10"><a name="L-10"></a><span class="s"> Accepts only uppercase ascii and spaces.&quot;</span> </span><span id="L-11"><a name="L-11"></a> <span class="p">[</span><span class="nv">message</span> <span class="nv">i</span><span class="p">]</span> </span><span id="L-12"><a name="L-12"></a> <span class="p">(</span><span class="nf">s/map-str</span> <span class="o">#</span><span class="p">(</span><span class="nf">rot-char</span> <span class="nv">%</span> <span class="nv">i</span><span class="p">)</span> <span class="nv">message</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="c1">;; TODO: not done. Doesn&#39;t wrap around.</span> </span><span id="L-15"><a name="L-15"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">rot-char</span> </span><span id="L-16"><a name="L-16"></a> <span class="s">&quot;caesar cipher function</span> </span><span id="L-17"><a name="L-17"></a><span class="s"> c - a single ascii character, A - Z</span> </span><span id="L-18"><a name="L-18"></a><span class="s"> i - the factor by which to rotate the character if letter A-Z.</span> </span><span id="L-19"><a name="L-19"></a><span class="s"> Valid values are 0 - 25&quot;</span> </span><span id="L-20"><a name="L-20"></a> <span class="p">[</span><span class="nv">c</span> <span class="nv">i</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">i</span> <span class="mi">0</span><span class="p">)</span> <span class="p">(</span><span class="nb">&lt; </span><span class="nv">i</span> <span class="mi">25</span><span class="p">)</span> <span class="p">(</span><span class="nf">ascii-uppercase-letter-or-space?</span> <span class="nv">c</span><span class="p">)]}</span> </span><span id="L-21"><a name="L-21"></a> <span class="p">(</span><span class="k">if </span><span class="p">(</span><span class="nf">.equals</span> <span class="nv">c</span> <span class="sc">\s</span><span class="nv">pace</span><span class="p">)</span> </span><span id="L-22"><a name="L-22"></a> <span class="nv">c</span> </span><span id="L-23"><a name="L-23"></a> <span class="p">(</span><span class="nb">char </span><span class="p">(</span><span class="nb">+ </span><span class="p">(</span><span class="nb">int </span><span class="nv">c</span><span class="p">)</span> <span class="nv">i</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="c1">;; TODO: could use various static methods of java.lang.Character here...</span> </span><span id="L-26"><a name="L-26"></a><span class="p">(</span><span class="kd">defn </span><span class="nv">ascii-uppercase-letter-or-space?</span> </span><span id="L-27"><a name="L-27"></a> <span class="s">&quot;checks if a character is an uppercase ascii letter&quot;</span><span class="p">[</span><span class="nv">c</span><span class="p">]</span> </span><span id="L-28"><a name="L-28"></a> <span class="p">(</span><span class="nb">and </span><span class="p">(</span><span class="nf">char?</span> <span class="nv">c</span><span class="p">)</span> </span><span id="L-29"><a name="L-29"></a> <span class="p">(</span><span class="nb">or </span><span class="p">(</span><span class="nf">.equals</span> <span class="nv">c</span> <span class="sc">\s</span><span class="nv">pace</span><span class="p">)</span> </span><span id="L-30"><a name="L-30"></a> <span class="p">(</span><span class="k">let </span><span class="p">[</span><span class="nv">compared-to-A</span> <span class="p">(</span><span class="nf">compare</span> <span class="nv">c</span> <span class="sc">\A</span><span class="p">)</span> </span><span id="L-31"><a name="L-31"></a> <span class="nv">compared-to-Z</span> <span class="p">(</span><span class="nf">compare</span> <span class="nv">c</span> <span class="sc">\Z</span><span class="p">)]</span> </span><span id="L-32"><a name="L-32"></a> <span class="p">(</span><span class="nb">or </span><span class="p">(</span><span class="nb">= </span><span class="mi">0</span> <span class="nv">compared-to-A</span><span class="p">)</span> </span><span id="L-33"><a name="L-33"></a> <span class="p">(</span><span class="nb">= </span><span class="mi">0</span> <span class="nv">compared-to-Z</span><span class="p">)</span> </span><span id="L-34"><a name="L-34"></a> <span class="p">(</span><span class="nb">and </span><span class="p">(</span><span class="nb">pos? </span><span class="nv">compared-to-A</span><span class="p">)</span> <span class="p">(</span><span class="nb">neg? </span><span class="nv">compared-to-Z</span><span class="p">)))))))</span> </span></pre></div> </td></tr></table>
clojure