初学者'；s clojure试图破解Kerrank问题超时_Clojure

初学者'；s clojure试图破解Kerrank问题超时

clojure

初学者'；s clojure试图破解Kerrank问题超时,clojure,Clojure,我正在hackerrank上尝试以下问题：但不幸的是，我下面的clojure代码在许多测试用例上都超时了，我不知道是什么让它如此低效。请宽大点。我总共只有两个小时的clojure经验 (require '[clojure.string :as str]) ; Complete the countingValleys function below. (defn countingValleys [n s] (do (def running 0) (defn count

我正在hackerrank上尝试以下问题：

但不幸的是，我下面的clojure代码在许多测试用例上都超时了，我不知道是什么让它如此低效。请宽大点。我总共只有两个小时的clojure经验

(require '[clojure.string :as str])

; Complete the countingValleys function below.
(defn countingValleys [n s]
    (do 
    (def running 0)
    (defn counter [elem]
    (do
        (cond 
        (= elem "D") (def running (+ running 1))
        (= elem "U")(def running (- running 1))
        )
        running
    )

    )

    (def valley-num 0)

    (defn valley-count [a b]
    (do
        (if (and (= a "U") (= b 0))
        (def valley-num (+ valley-num 1)))
    )
    )

    (def heights (for [elem s] (counter elem)))
    (doseq [[i j] (map vector s heights)]
    (valley-count i j))
    valley-num
    )


)

(def fptr (get (System/getenv) "OUTPUT_PATH"))

(def n (Integer/parseInt (clojure.string/trim (read-line))))

(def s (read-line))

(def result (countingValleys n (str/split s #"")))

(spit fptr (str result "\n") :append true)

同样逻辑的简单python实现，耗时5分钟并通过了所有测试用例：

def countingValleys(n, s):
    list = []
    for i in range(len(s)):
        d = 0
        if s[i] == "D":
            d = 1
        elif s[i] == "U":
            d = -1
        if len(list) == 0:
            list.append(d)
        else:
            list.append(list[-1] + d)
    num = 0
    for i in range(len(s)):
        if s[i] == "U" and list[i] == 0:
            num += 1
    return num

所以我想出来了。效率低下的原因是：

(doseq [[i j] (map vector s heights)]
    (valley-count i j))

可替换为：

(doall (map valley-count s heights))

然后所有的测试都通过了

所以我想出来了。效率低下的原因是：

(doseq [[i j] (map vector s heights)]
    (valley-count i j))

可替换为：

(doall (map valley-count s heights))

然后所有的测试都通过了

代码的缓慢是它的最小问题。你应该使用的工具是

纯函数
序列库
在速度方面，还有传感器的前景

我喜欢你的基本算法：计算上升运动将你带到海平面的情况

我们可以这样用惯用的方式来表达：

 (defn countingValleys [n s]
  (let [counter {\D 1, \U -1}
        heights (reductions + (map counter s))
        s-heights (map vector s heights)
        valley-num (count (filter #{[\U 0]} s-heights))]
    valley-num))

。。。或者，使用

->

线程宏

(defn countingValleys [_ s]
  (->> s
       (map {\D 1, \U -1})
       (reductions +)
       (map vector s)
       (filter #{[\U 0]})
       (count)))

这些比你的更清晰、更快

看起来你和HackerRank实际上在使用ClojureScript。使用

“U”

作为字符串元素在Clojure中不起作用：必须使用字符

\U