Използване на датомични агрегати

Искам да намеря хора с минимална възраст със следващото запитване

(d/q '[:find ?name (min ?age)
         :in [[?name ?age]]]
       [["John" 20]
        ["Bill" 25]
        ["Jack" 20]
        ["Steve" 28]
        ["Andrew" 30]])

Но резултатът е

[["Andrew" 30] ["Bill" 25] ["Jack" 20] ["John" 20] ["Steve" 28]]

Как да стане това?


datomic datalog
person Nawa    schedule 22.04.2014    source източник

Отговори (3)


arrow_upward
4
arrow_downward

Вместо да свързвате заявките заедно, можете да използвате подзаявка (извикване на заявка от заявката вместо извън нея):

(d/q '[:find ?name ?mage
       :in $
       :where [(datomic.api/q '[:find (min ?age)
                                :where [_ :age ?age]]
                              $) [[?mage]]]
              [?name :age ?mage]]
   [["John" :age 20]
    ["Bill" :age 25]
    ["Jack" :age 20]
    ["Steve" :age 28]
    ["Andrew" :age 30]])

Се завръща:

#{["John" 20] ["Jack" 20]}
person Ben Kamphaus    schedule 11.06.2015

arrow_upward
3
arrow_downward

Това би било чисто Datalog решение

(let [db [["John" 20]
          ["Bill" 25]
          ["Jack" 20]
          ["Steve" 28]
          ["Andrew" 30]]]
  (d/q '[:find ?name ?min-age
         :in $ ?min-age
         :where [?name ?min-age]]
       db
       (ffirst (d/q '[:find (min ?age)
                      :in [[?name ?age]]]
                 db))))

Клауза HAVING като в SQL не е част от езика за заявки, но тъй като всички заявки се изпълняват в партньорската система, няма излишни разходи при извършването на вложени заявки.

person stijnopheide    schedule 02.05.2014
comment
Направих същото като решение. Но 2 запитвания е лошо според мен. Реално ли е да го направя с една чиста заявка? - person Nawa; 03.05.2014
comment
Зависи какво смятате за „лошо“. Ако това означава много код, можете да използвате решението от @user1641001 (заменете първо с take-while). Ако означава „лошо“ в смисъл, че това би било лошо за производителността на заявката, както би било при използване на SQL, това не е така, тъй като вашата заявка се изпълнява локално в партньорската. - person stijnopheide; 07.05.2014

arrow_upward
-1
arrow_downward

В този случай не се нуждаете от datomic, тъй като вече имате всички необходими данни във вашата последователност. Използвайте clojure sort вместо това.

(first (sort-by second [...]))
person evpozdniakov    schedule 23.04.2014