More giorn

cia'

appena ordinato un raspberry pi 4 con l’idea di giocarci a minecraft attraverso pythonAPI (https://projects.raspberrypi.org/en/projects/getting-started-with-minecraft-pi/5) ma ovviamente la domanda sorge spontanea…. clojureAPI? 😬

https://github.com/cnuernber/libpython-clj

juicy!

lei ci sta lavorando parecchio https://twitter.com/gigasquid?ref_src=twsrc%5Egoogle%7Ctwcamp%5Eserp%7Ctwgr%5Eauthor

Yay or nay?

(defn cartesian-prod [colls]
  (let [vars (vec (take (count colls) (repeatedly gensym)))
        binds (vec (interleave vars colls))]
    (eval `(for ~binds ~vars))))

(let [all [[1 2] [3 4]]] (cartesian-prod all))
;; ([1 3] [1 4] [2 3] [2 4])

Motivo: non si sa quante coll ci sono in colls. for funziona molto bene se si sa quante colls ci sono. Quindi sto cercando un modo di generare un for attraverso qualche macro expansion. I miei tentativi di usare defmacro non hanno funzionato fin’ora. Mi piacerebbe capire dove sbaglio.

perche` non usare semplicemente ricorsione?

(defn cartesian-prod [colls]
  (if-let [[coll & colls] (seq colls)]
    (for [x coll
          xs (cartesian-prod colls)]
      (cons x xs))
    [[]]))

ah, bella, non ci avevo pensato

sicuramente meglio!

Se hai un minuto (e voglia) puoi postare una defmacro che genera un for con bindings variabili? Ho provato varie combinazioni di sintax-quote, gensym e famiglia ma mi blocco sempre. Ho la sensazione che dovrebbe essere relativemente semplice… oppure c’e’ qualcosa che non capisco

in che senso?

(let [all [[1 2] [3 4]]] (cartesian-prod all)) con cartesian-prod una defmacro non e` fattibile

forse e’ concettualmente un problema il fatto che il contenuto di colls e’ noto solo a runtime, ma a macro-expansion time non c’e’ niente da fare

precisamente

ecco, l’ho realizzato ora scrivendolo… che cefalo

e non e’ la prima volta che non me ne rendo conto, spendo 2 ore a non capire perche’ la macro non mi riesce…