Changes between Version 39 and Version 40 of Clojure Client Tutorial

Timestamp:

Aug 8, 2011 11:46:51 AM (13 years ago)

Author:

kedwar10

Comment:

--

Clojure Client Tutorial

@@ -237 +237 @@
 }}}
 
-Notice that the room has a few items scattered around it, let's define a function "scan-area" that takes two arguments (a quagent key and a radius) and returns a hash map of the positions of the items.  The simplest implementation is to just use the basic radar op from protocol zero with a vector for an initial value and "conj" for the combination function. (Note the use of "pp" to pretty-print the previous result.)
+Notice that the room has a few items scattered around it, let's define a function "scan-area" that takes two arguments (a quagent key and a radius) and returns a hash map of the positions of the items.  Before trying to write the full function it is a good idea just to print out what the server is returning.
+
+{{{
+client.core=> (send-and-get :Bob :radar :now [8000] nil (fn [prev data] (println data)))
+(0 player 768.875366 90.065201 0.000000)
+(2 player 32.000000 -90.000000 0.000000)
+(72 info_player_deathmatch 32.000244 -90.000000 0.223811)
+(74 quagent_item_treasure 572.168640 20.462269 0.901278)
+(75 quagent_item_gold 375.085327 56.309933 1.374918)
+(76 quagent_item_gold 1019.278626 42.455196 0.505915)
+(77 quagent_item_treasure 697.711304 63.434952 0.739097)
+(78 quagent_item_gold 905.141357 8.130102 0.569713)
+(79 info_player_deathmatch 0.125000 0.000000 90.000000)
+nil
+}}}
+
+The simplest implementation is to just use the basic radar op from protocol zero with a vector for an initial value and "conj" for the combination function. (Note the use of "pp" to pretty-print the previous result.)
 
 {{{
@@ -255 +271 @@
 }}}
 
+Partitioning these into a map is going to be a little more difficult as multiple positions will need to be stored at each key.  However, we know already that the initial data structure to be a hash-map and the keys need to be the item type. 
+
+{{{
+client.core=> (send-and-get :Bob :radar :now [8000] 
+                            {}
+                            (fn [prev [_ item-type & pos]]
+                              (assoc prev item-type pos)) 
+)
+{"quagent_item_gold" ("905.141357" "8.130102" "0.569713")... (output truncated) 
+client.core=> (pp)
+{"quagent_item_gold" ("905.141357" "8.130102" "0.569713"),
+ "quagent_item_treasure" ("697.711304" "63.434952" "0.739097"),
+ "info_player_deathmatch" ("0.125000" "0.000000" "90.000000"),
+ "player" ("32.000000" "-90.000000" "0.000000")}
+nil
+}}}
+
+This is progress but the data from the new replies is overriding the previous results. To get the right behaviour, the "merge-with" function must be used to combine the maps. 
+
+{{{
+client.core=> (send-and-get :Bob :radar :now [8000] {} (fn [prev [_ item-type & pos]] (merge-with concat prev {item-type (list pos)})))
+{"quagent_item_gold" (("375.085327" "56.309933" "1.374918") ... (output truncated)
+client.core=> (pp)
+{"quagent_item_gold"
+ (("375.085327" "56.309933" "1.374918")
+  ("1019.278626" "42.455196" "0.505915")
+  ("905.141357" "8.130102" "0.569713")),
+ "quagent_item_treasure"
+ (("572.168640" "20.462269" "0.901278")
+  ("697.711304" "63.434952" "0.739097")),
+ "info_player_deathmatch"
+ (("32.000244" "-90.000000" "0.223811")
+  ("0.125000" "0.000000" "90.000000")),
+ "player"
+ (("768.875366" "90.065201" "0.000000")
+  ("32.000000" "-90.000000" "0.000000"))}
+nil
+}}}
+
+
+