gistfile1.clj

; Clojurescript, detect if a string contains a double-byte char. As soon as we find one, we should immediately return true

(defn double-byte-str? [string]
  (.log js/console (str "Checking: " string))
  (cond (empty? string) nil
        (> (.charCodeAt string 0) 255) true
        :else (recur (rest string))))

; Javascript version of the function
String.prototype.isDoubleByte = function() {
    for (var i = 0, n = this.length; i < n; i++) {
        if (this.charCodeAt( i ) > 255) { return true; }
    }

    return false;
}