Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Everything in this function is deterministic and pure (except the <code>info</code> calls, which shouldn't matter), so it should return the same thing every time. You don't provide any sample inputs, so I can't disprove this assumption.</p> <p>The code is hard to read, and with no context I don't really understand what you're doing. But I went through your code in several refactoring passes to try to make it clearer what's going on. Hopefully this will help someone else who is reading, or even make it clearer to you where your problem is.</p> <h2>First</h2> <p>Remove all the crazy formatting and pointless variable-copying, and use <code>seq</code> instead of testing count=0</p> <pre><code>(defn resolve-case-per-period "Constructs a map by matching data existing in input parameter vectors" [dd case-details periods] (let [cases (loop [case-details case-details, result-map {}] (if (seq case-details) (recur (rest case-details) (assoc result-map (:priority (first case-details)) (:caseid (first case-details)))) result-map))] (info "Mapping cases to periods step 1 completed " cases) (loop [periods periods, result-map {}] (if (seq periods) (recur (rest periods) (assoc result-map (str (:period (first periods))) (get cases (:priority (first periods))))) (do (info "Mapping cases to periods step 2 completed " result-map) result-map))))) </code></pre> <h2>Second</h2> <p>Destructuring and if-let instead of primitive keyword lookups, ifs, and seqs:</p> <pre><code>(defn resolve-case-per-period "Constructs a map by matching data existing in input parameter vectors" [dd case-details periods] (let [cases (loop [case-details case-details, result-map {}] (if-let [[{:keys [priority case-id]} &amp; more] (seq case-details)] (recur more (assoc result-map priority caseid)) result-map))] (info "Mapping cases to periods step 1 completed " cases) (loop [periods periods, result-map {}] (if-let [[{:keys [period priority]} &amp; more] (seq periods)] (recur more (assoc result-map (str period) (get cases priority))) (do (info "Mapping cases to periods step 2 completed " result-map) result-map))))) </code></pre> <h2>Third</h2> <p>At this point it's finally clear that we're just iterating over a sequence and building up a result value as we go, so we can drop all the first/rest nonsense and just use <code>reduce</code> to traverse the sequence for us:</p> <pre><code>(defn resolve-case-per-period "Constructs a map by matching data existing in input parameter vectors" [dd case-details periods] (let [cases (reduce (fn [result-map {:keys [priority case-id]}] (assoc result-map priority caseid)) {}, case-details)] (info "Mapping cases to periods step 1 completed " cases) (reduce (fn [result-map {:keys [period priority]}] (assoc result-map (str period) (get cases priority))) {}, periods))) </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POClojure Inconsistent results in clojure during executions of a function
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USamalloy
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POClojure Inconsistent results in clojure during executions of a function
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTAcceptedByOriginator
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COI really like the way you show how you pass over the code several times, making improvements each time. Thanks for taking the time. May I suggest removing `dd` from the argument list of the original function. AFAICS it is not used anywhere.
      singulars
      1. PO
      1. USPaul
    2. COThank you for your thorough answer.
      singulars
      1. PO
      1. USkostas
    3. COThank you for your thorough answer. The first data structure, case-details is a list that contains map data structures as the following {:caseid 10020101029093512M, :exectime 29-oct-2010 09:35:17, :priority 30856568000M, :studymodeid 11M}. The second parameter, periods is another list that contains instances as the following {:period 29-10-10 21, :priority 30851039000M}. What i am trying to do is build a map with keys :period, extracted from the second list and values :caseid extracted from the first list.
      singulars
      1. PO
      1. USkostas
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload