Nota Caesaris

By Lysandra, in 'Sermones Tironum', Jan 3, 2019.

  1. Lysandra Canis

    • Civis Illustris
    Location:
    Tasmania
    Pxirbqb! Xifnrfpkb ibdbob elz mlqbpq?
  2. Quasus Civis Illustris

    • Civis Illustris
    Location:
    Coimbra, Portugal
    Pxirb jriqrj, lmqfjx Ivpxkaox!
  3. Quasus Civis Illustris

    • Civis Illustris
    Location:
    Coimbra, Portugal
    Zbqbori, pf Zxbpxobi fifqxkqbp hfqqboxp j bq v brfqxirp, klkkb bxbabi bszfmfbkaxb prkq ab oxqflkb klqxori?
  4. Hemo Rusticus The Lizard King

    • Civis Illustris
    Nrfa dbkqfrj ilnrfjfkbf?!
  5. Lysandra Canis

    • Civis Illustris
    Location:
    Tasmania
    Qfjbl rq ljkfx nrxb pzofmpfpqf klk zxmfxj. :( Cloqxppb zljmolyxob mlqbp?
  6. rothbard Civis Illustris

    • Civis Illustris
    Location:
    London
    Pxisbqb ljkbp
  7. Quasus Civis Illustris

    • Civis Illustris
    Location:
    Coimbra, Portugal
    > Qfjbl rq ljkfx nrxb pzofmpfpqf klk zxmfxj.

    Cum scribis latine, litteras j et v evitas, sed en in notis j apparet. Quonam alphabeto utendum est nobis, vetere an recentiore, v et j et w additis?
    Last edited by Quasus, Jan 9, 2019
  8. Dantius Homo Sapiens

    • Civis Illustris
    Location:
    in orbe lacteo
    Caesar certe cum per notas scribebat, litteris quae sunt "j" "w" "v" non utebatur. Ego ergo opinor, si Latine per Caesaris notam scribamus, solis Latinis litteris nobis scribendum esse. Sed non magni refert quid ego sentiam; non enim in hoc filo scribo nec scribere volo.
  9. Quasus Civis Illustris

    • Civis Illustris
    Location:
    Coimbra, Portugal
    Fortasse quia deest tibi, o Danti, programma convertor. Si Lispo Communi uteris, ecce meum:
    Code:
    ;;;; LICENTIA: FAC QVOD VIS
     
    (defpackage #:caesar
      (:use #:cl)
      (:export #:encode
              #:encode-with-casing
              #:latin23
              #:latin26))
     
    (in-package #:caesar)
     
    (defun try-encode-char (char key shift)
      (let ((p (position char key)))
        (and p (char key (mod (+ p shift) (length key))))))
     
    (defun encode (string shift key)
      (unless (listp key)
        (setf key (list key)))
      (with-output-to-string (s)
        (loop for char across string
              for encoded-char = (loop for k in key
                                       for e = (try-encode-char char k shift)
                                       when e
                                       do (return e)
                                       finally (return nil))
              do (write-char (or encoded-char char) s))))
     
    (defun encode-with-casing (string shift minuscules)
      (encode string shift (list minuscules (string-upcase minuscules))))
     
    (defun latin23 (string shift)
      (encode string shift '("abcdefghiklmnopqrstuxyz" "ABCDEFGHIKLMNOPQRSTVXYZ")))
     
    (defun latin26 (string shift)
      (encode-with-casing string shift "abcdefghijklmnopqrstuvwxyz"))
    
    Exempla:
    Code:
    CAESAR> (latin23 "Salue!" -3)
    "Pxhrb!"
    CAESAR> (latin23 "SALVE" -3)
    "PXHRB"
    Last edited by Quasus, Jan 9, 2019

Share This Page

 

Our Latin forum is a community for discussion of all topics relating to Latin language, ancient and medieval world.

Latin Boards on this Forum:

English to Latin, Latin to English translation, general Latin language, Latin grammar, Latine loquere, ancient and medieval world links.