SHOW:
|
|
- or go back to the newest paste.
| 1 | - | |
| 1 | + | |
| 2 | ;;character in a string. | |
| 3 | (defn first-duplicate-char [str-in] | |
| 4 | - | (defn first-duplicate-char [str_in] |
| 4 | + | (loop [[h & t] str-in seen #{}]
|
| 5 | - | (loop [list_Rem (seq str_in) set_Seen (set [])] |
| 5 | + | (cond |
| 6 | - | (print (type list_Rem) " " list_Rem (next list_Rem) "\n") |
| 6 | + | (nil? h) nil |
| 7 | - | (if (= 0 (count str_in)) |
| 7 | + | (seen h) h |
| 8 | - | nil |
| 8 | + | :else (recur t (conj seen h))))) |
