Почему уменьшает остановку после одного номера счета?

Question

Что-то не так с тем, как я написал функцию gen-sim-map. Он останавливается после одного номера счета и последнего числа в векторе. Мне интересно, что я делаю неправильно. Я мог бы решить проблему, применив повтор к функции, но это кажется мне неправильным.

Вот данные и вызов; функция defs ниже этого.

(def acct-nums (gen-acct-nums 5)) 
#'ba1-app/acct-nums 

ba1-app=> acct-nums 
[10000 10001 10002 10003 10004 10005] 

ba1-app=> (gen-sim-map acct-nums) 
{10005 [\W 160.12]} 

(defn random-trans 
    [] 
    (nth avail-trans (.nextInt random (count avail-trans)))) 

(defn random-amount 
    [] 
    (float (/ (.nextInt random (count (range 1 10000))) 25))) 

; Generate an account number. The range is arbitrary to make it look a real bank account #. 
(defn gen-acct-nums [range-end-idx] 
    (vec (range 10000 (+ 10000 range-end-idx 1)))) 

(defn gen-sim-map [acct-nums] 
    (reduce 
     (fn [sim-map one-acct-num] 
      (let [trans (random-trans) 
        amt (random-amount)] 
       { one-acct-num (vector trans amt) })) 
     {} 
     acct-nums)) 

Answer 1

Я подозреваю, что ваша проблема в том, что вы не меняете аккумулятор. Я ожидаю увидеть что-то вроде

(defn gen-sim-map [acct-nums] 
    (reduce 
     (fn [sim-map one-acct-num] 
      (let [trans (random-trans) 
       amt (random-amount)] 
       (assoc sim-map one-acct-num (vector trans amt)))) ; <--- 
     {} 
     acct-nums)) 

или аналогичный.