Raynes

(ns main.main)

(defn main
  ([name] (println (str "Hi there, " name)))
  ([] (main "World!")))

Raynes

(require 'swank.swank)

(swank.swank/ignore-protocol-version "2009-05-17")

(swank.swank/start-server "/tmp/slime.17534" :encoding "iso-latin-1-unix")

Clojure 1.1.0-alpha-SNAPSHOT
user=> java.lang.NoSuchMethodError: clojure.lang.RestFn.<init>(I)V (pprint.clj:1)
user=> user=> java.lang.Exception: No such var: swank.swank/ignore-protocol-version (NO_SOURCE_FILE:3)
user=> user=> java.lang.Exception: No such var: swank.swank/start-server (NO_SOURCE_FILE:5)

Raynes

(ns cipher)

(def alphabet-nums (apply hash-map (interleave (range 1 27) "abcdefghijklmnopqrstuvwxyz")))
(def alphabet-chars (apply hash-map (interleave "abcdefghijklmnopqrstuvwxyz" (range 1 27))))

(defn is-letter? [s]
  (if (re-find #"(?i)[a-z]" (.toString s)) true false))

(defn shift-char
  "Shifts the given Character down the alphabet by three."

Raynes

(ns cipher
  (:use [clojure.contrib.def :only (defnk)]))

(def alphabet-nums (apply hash-map (interleave (range 1 27) "abcdefghijklmnopqrstuvwxyz")))
(def alphabet-chars (apply hash-map (interleave "abcdefghijklmnopqrstuvwxyz" (range 1 27))))

(defn is-letter? [s]
  (if (re-find #"(?i)[a-z]" (.toString s)) true false))

(defn shift-char-forward

Raynes

(ns cipher
  (:use [clojure.contrib.def :only (defnk)]))

(def alphabet-nums (apply hash-map (interleave (range 1 27) "abcdefghijklmnopqrstuvwxyz")))
(def alphabet-chars (apply hash-map (interleave "abcdefghijklmnopqrstuvwxyz" (range 1 27))))

(defn is-letter? [s]
  (if (re-find #"(?i)[a-z]" (.toString s)) true false))

(defnk shift-char-forward

Raynes

; SLIME 20091016
user> (shift-char-forward \a)
; Evaluation aborted.
user> (shift-char-forward 1)
; Evaluation aborted.
user> (shift-char-forward 1)
; Evaluation aborted.
user> (shift-char-forward 1)
; Evaluation aborted.
user> (ns cipher)

Raynes

(ns cipher
  (:use [clojure.contrib.def :only (defnk)]))

(def alphabet-nums (apply hash-map (interleave (range 1 27) "abcdefghijklmnopqrstuvwxyz")))
(def alphabet-chars (apply hash-map (interleave "abcdefghijklmnopqrstuvwxyz" (range 1 27))))

(defn is-letter? [s]
  (if (re-find #"(?i)[a-z]" (.toString s)) true false))

(defnk shift-char

Raynes

QUOTE
QUOTE
QUOTE
Dude, I have nothing against you personally. From what I have read you seem nice enough. I have known some witches and pagans in my day, and have called some friend. Don't feel a need to take what I say personally. smile.gif


You haven't said anything against me personally. I don't have anything against you whatsoever. There are just certain things that bother me. I honestly didn't mean to offend you, if I did.


Takes a lot to offend me bro. I am a soldier, at the front lines of this war. This is what I do. I just wanted to make sure you didn't take it hard. smile.gif were cool.

Raynes

Second, while I've never really used Visual Basic, 
I've also never understood the irrational hatred 
towards it. It's used quite frequently for developing 
interfaces among engineers, probably because they 
don't have to waste their time packing some stupid 
GTK boxes with widgets as if it were a game of 
Klotski (actually, the packing model is kinda 
nice, but I need comprehensible fodder). My 
feeling is that it's hated only because it's 
cool to hate by obscurantists and miscreants, 

Raynes

 public string Encrypt(string word)
        {
            word.ToLower();
            string encryptedWord = "";
            char[] split = word.ToCharArray();
            foreach (char character in split)
            {
                switch (character)
                {
                    case 'a': encryptedWord += "d"; break;