En Clojure - ¿Cómo puedo acceder a las claves en un vector de estructuras

Question

Tengo el siguiente vector de estructuras:

(defstruct #^{:doc "Basic structure for book information."} 
    book :title :authors :price) 

(def #^{:doc "The top ten Amazon best sellers on 16 Mar 2010."} 
    best-sellers 
    [(struct book 
      "The Big Short" 
      ["Michael Lewis"] 
      15.09) 
    (struct book 
      "The Help" 
      ["Kathryn Stockett"] 
      9.50) 
    (struct book 
      "Change Your Prain, Change Your Body" 
      ["Daniel G. Amen M.D."] 
      14.29) 
    (struct book 
      "Food Rules" 
      ["Michael Pollan"] 
      5.00) 
    (struct book 
      "Courage and Consequence" 
      ["Karl Rove"] 
      16.50) 
    (struct book 
      "A Patriot's History of the United States" 
      ["Larry Schweikart","Michael Allen"] 
      12.00) 
    (struct book 
      "The 48 Laws of Power" 
      ["Robert Greene"] 
      11.00) 
    (struct book 
      "The Five Thousand Year Leap" 
      ["W. Cleon Skousen","James Michael Pratt","Carlos L Packard","Evan Frederickson"] 
      10.97) 
    (struct book 
      "Chelsea Chelsea Bang Bang" 
      ["Chelsea Handler"] 
      14.03) 
    (struct book 
      "The Kind Diet" 
      ["Alicia Silverstone","Neal D. Barnard M.D."] 
      16.00)]) 

I would like to sum the prices of all the books in the vector. What I have is the following: 

(defn get-price 
    "Same as print-book but handling multiple authors on a single book" 
    [ {:keys [title authors price]} ] 
    price) 

Entonces:

(reduce + (map get-price best-sellers)) 

¿Hay una manera de hacer esto sin asignación la función "obtener precio" sobre el vector? ¿O hay una manera idiomática de abordar este problema?

Answer 1

¡Es bueno ver una pregunta relacionada con Clojure 101! :-)

Puede mapear :price en best-sellers; probablemente no haría mucha diferencia en lo que se refiere al grado en que este código es idiomático. En escenarios más complejos, usar algo como get-price podría ser un mejor estilo y ayudar a la mantenibilidad.

En cuanto a posibles cambios más profundos en el código, esta es, de hecho, la forma más limpia de escribirlo. Una alternativa sería escribir una función de reducción de encargo:

(reduce (fn [{price :price} result] (+ price result)) 
     0 
     best-sellers) 

Esto básicamente fusiona la map y la reduce juntos; de vez en cuando esto es útil, pero en general, desglosar la transformación de una secuencia en pasos separados y bien definidos ayuda a la legibilidad & mantenibilidad y debe ser la forma predeterminada de proceder. Comentarios similares se aplican a todas las otras alternativas que se me vienen a la mente (incluido loop/recur).

En general, diría que lo has encontrado. No hay ajustes que hacer aquí. :-)