ClassCastException in Clojure

Question

I am new to clojure and i have been trying out different programs. Here is my program :

(defn sdsu-reverse [x]
  (loop [n (count x) x x]
  (if (= 0 n)
    (x)
          


        

Answer 1

As Alex notes above, you need to replace (x) with x in your if expression. Wrapping x in parentheses treats it as a function when instead you want to return a value.

As for the other issue in your code:

conj is a slightly confusing function.

clojure.core/cons
([x seq])
  Returns a new seq where x is the first element and seq is
    the rest.

Sounds clear enough. But look at what happens when conj is applied to a list versus a vector (source).

user=> (conj [1 2 3] 4)
[1 2 3 4]

user=> (conj '(1 2 3) 4)
(4 1 2 3)

The reason for this has to do with how the vector and list datatypes are constructed. Vectors receive new values from the righthand side; lists, from the lefthand side.

When you call conj (next x) (first x), you effectively are calling conj '(2 3 4) '(1), over and over again. So you end up with the same value that you started at.

A better approach would be to use recursion as follows.

(defn sdsu-reverse [x]
  (if (empty? x)
    nil
    (cons (last x) (sdsu-reverse (drop-last x)))))

I hope this helps.

Edit in response to Leonid's comments.

Leonid is correct that the above will fail for large sequences. Alternatively you could do something like

(defn reverse' 
  ([x] (reverse' x nil))
  ([x acc] (if (empty? x) 
             acc 
             (recur (rest x) (cons (first x) acc)))))

Answer 2

class cast exception in your code is because you try to make a list from a constant i.e. (x) so just replace it with x you won't get class cast exception.