 
 ;;; Pragmatics
 
-(defn- minimum
-  "Returns a random minimal element wrt <= in seq-of-elements."
-  [<= seq-of-elements]
-  (first (apply partial-min <= seq-of-elements)))
-
 (defmacro- set-val!
   "Sets (via set!) the value for key in map to val."
   [map key val]

  (titanic (attributes context)
           (supports context 0)
           1.0
           <=))

(defn titanic-iceberg-intent-set
  "Computes the iceberg intent set for given context and minimal

    (if-not (empty? elements)
      (let [m   (first elements),
            X+m (conj X m),
            s   (or (set-weight X+m)
                    (let [weight (minimum (doall (for [K keys, ;bottleneck!
                                                       :when (subset? K X+m)]
                                                   (set-weight K))))]
                      (set-val! set-weight X+m weight)
                      weight))]
        (recur (if (= s (set-weight X))
                 (conj Y m)
                 Y)
