S
@snafuna
Team Project
(def alphabet {"a" "n", "b" "o", "c" "p", "d" "q", "e" "r", "f" "s", "g" "t", "h" "u", "i" "v", "j" "w", "k" "x", "l" "y", "m" "z"
"n" "a", "o" "b", "p" "c", "q" "d", "r" "e", "s" "f", "t" "g", "u" "h", "v" "i", "w" "j", "x" "k", "y" "l", "z" "m"
"A" "N", "B" "O", "C" "P", "D" "Q", "E" "R", "F" "S", "G" "T", "H" "U", "I" "V", "J" "W", "K" "X", "L" "Y", "M" "Z"
"N" "A", "O" "B", "P" "C", "Q" "D", "R" "E", "S" "F", "T" "G", "U" "H", "V" "I", "W" "J", "X" "K", "Y" "L", "Z" "M"
})
(d
exam
```(println "Midterm Exam 2")
(defn juggle [v n] (let [x1 (get v 0) x2 (get v 1) x3 (get v 2)]
(if(=(mod n 2) 0)
(print(replace [x1 x2 x3] [1 0 2]))
(print(replace [x1 x2 x3] [0 2 1]))
)
)
)
Question 2
(defn generate-multiple [q n]
(loop [i 1]
(when (<= i n)
(print (* q i)" ")
(recur (inc i)); loop i will take this value
))
)
(print "[")
(generate-multiple 3 4)
(print "]")
Question 1
(defn juggle [p1 n] (let [x1 (get p1 0)
x2 (get p1 1)
x3 (get p1 2)]
(if(even? n)
(replace [x1 x2 x3] [1 0 2])
(replace [x1 x2 x3] [0 2 1])
)
)
)