2010-06-08 15 views
5

Mam następujący wektor elemencie:W Clojure - W jaki sposób mogę uzyskać dostęp do kluczy w wektorze elemencie

(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) 

Potem:

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

Czy istnieje sposób to zrobić bez mapowania funkcja "pobierz cenę" nad wektorem? Czy istnieje idiomatyczny sposób podejścia do tego problemu?

+0

Twoja metoda jest prawie idiomatycznym sposobem podejścia do tego problemu. –

+0

'defstruct' prawdopodobnie zostanie uznane za przestarzałe/supremowane przez' defrecord'/'deftype', FYI. http://groups.google.com/group/clojure/msg/330c230e8dc857a9 –

Odpowiedz

6

Miło zobaczyć pytanie związane z Clojure 101! :-)

Można mapować :price przez best-sellers; Prawdopodobnie nie miałoby to większego znaczenia, jeśli chodzi o stopień, w jakim ten kodeks jest idiomatyczny. W bardziej złożonych scenariuszach używanie czegoś takiego jak get-price może być lepszym stylem i łatwiejszym w utrzymaniu.

Jeśli chodzi o możliwe głębsze zmiany w kodzie, jest to w rzeczywistości najczystszy sposób jego napisania. Jedną alternatywą byłoby napisać funkcję redukcji niestandardowe:

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

To w zasadzie łączy map i reduce razem; czasami jest to użyteczne, ale generalnie podzielenie transformacji sekwencji na oddzielne, dobrze zdefiniowane kroki pomaga w łatwości konserwacji i powinno być domyślną metodą. Podobne uwagi dotyczą wszystkich innych alternatyw, które przychodzą mi na myśl (w tym loop/recur).

Podsumowując, powiedziałabym, że go przybiłeś. Nie trzeba tu robić żadnych poprawek. :-)

+0

Dziękuję za szybką odpowiedź Michal. – Nick

Powiązane problemy