Clojurians Log v2

Hva gjelder det?

tenkte det var en spesielt god morgen, sola skinner og det er blå himmel 😂

I så fall syns jeg du kunne kosta på deg et utropstegn @odinodin

😅

Jeg mistenker at Terje har flyttet sin SoMe-strategi til en agentisk AI. 😂

Forrige melding fra meg var vel en YubiKey-kode som kom feil.. har vi en kanal hvor jeg kan øve litt på Slack?;)

Her sier alle god morgen. Men kun én får refs. Sånn er det noen ganger.

Hva gjelder det?

Jeg har prøvd å nå deg ang. forsikringen din. Hva betaler du i dag?

Er det dette som er Pig butchering?

Ja, egentlig er jeg forsikringsmegler. De siste 5~6 årene med Clojure-læring har kun vært for å vinne deres troverdighet og tillit. Nå føltes tiden riktig. #VerdensMestLidenskapeligeForsikringsselger

Min dump-to-file ser slik ut:

(defn dump-to-file
  "Dump data as plain text to file in specified directory."
  [file-name dir-name data]
  (let [path (fs/path (fs/cwd) dir-name)]
    (when-not (fs/exists? path)
      (fs/create-dirs path))
    (spit (str (fs/path path file-name))
          (str/join "\n" data))))

(->> employees
       (map :jobTitle)
       (distinct)
       (sort)
       (dump-to-file "job-titles.txt" "output"))

Jeg ville helt sikkert påstått at det å regne ut hvor noe skal skrives er ortogonalt fra det å skrive det ut.

True!

Jeg hadde ekstrahert en mer fokusert funksjon:

(defn has-job-title?
  [job-titles]
  #(field-contains? % :jobTitle job-titles))

(->> employees
     (filter (has-job-title? ["architect"
                              "devops"
                              "engineer"
                              "programmer"
                              "programming"
                              "scripter"
                              "systems"
                              "tech"
                              "technical"]))
     #_osv.)

(def tech-jobs ["architect" "devops" "engineer" "programmer" "programming"
                "scripter" "systems" "tech" "technical"])

(->> employees
     (filter (has-job-title? tech-jobs))
     #_osv.)

Det gir mening! Takk for tips. Det var faktisk mer slik i starten, så gikk jeg antagelig for langt i den «generelle/abstrakte» retningen 😅

Merker jeg ofte tenker at jeg har for mange små domenespesifikke funksjoner istedenfor å bruke innebygde funksjoner «utenfor» når jeg kombinerer dem.

Jeg må bli flinkere til å finne riktig abstraksjonsnivå å legge meg på.

Altså, det er ingenting i veien med det du viste først heller. Man må nesten velge selv ut fra situasjonen hvor man vil legge seg på abstraksjons-spekteret. 🙂 Jeg pleier å begynne ikke-abstrakt men domene-nært. Tiden viser om det er lurt å abstrahere.

Det første jeg hadde tenkt her, var å putte alle stillingstitlene i et set fordi set er funksjoner. Så:

(def titles #{"devops" "engineer" "programmer"})
;;
(titles "devops") ;;=> "devops"
(titles "wizard") ;;=> "null"

(filter (comp titles str/lower-case :jobTitle) employees)

(dump-to-file) høres ut som spit