let inside cond

Question

Sto lavorando con clojure e mentre mi sono dilettato con le lisps in precedenza, ho problemi a trovare un modo pulito per annidare le istruzioni in dichiarazioni cond. Ad esempio, si consideri la seguente funzione:

(defn operate-on-list [xs] 
    (let [[unpack vector] (first xs)] 
    (cond 
     [(empty? xs) 'empty 
     unpack vector 
     :else (operate-on-list (rest xs))]))) 

E 'un'operazione ricorsiva abbastanza standard in un elenco, ma ha bisogno di fare un certo lavoro sul primo elemento della lista prima che funziona con i contenuti. Il problema, ovviamente, è che la lista potrebbe essere vuota.

In questo esempio, non sarebbe difficile cambiare unpack-((first xs) 0) e vector-((first xs) 1), ma questo diventa rapidamente brutto se più lavoro deve essere fatto sui primi (xs).

Esiste un modo per utilizzare efficacemente un'istruzione Let in modo parziale attraverso un cond?

Grazie.

-Nate

Answer 1

In casi come questi, si sta meglio fuori usando if-let:

(defn operate-on-list [xs] 
    (if-let [[unpack v] (first xs)] 
    (cond 
     unpack v 
     :else (operate-on-list (rest xs))))) 

Questo codice cammina la data lista ss-grado (lista, vettore, array ...) di vettori e restituisce il secondo elemento del primo vettore il cui primo elemento è vero (ovvero non false o nil). nil viene restituito se non viene trovato alcun vettore di questo tipo.

Nota che vector è una funzione incorporata, quindi ho scelto v come nome della variabile, nel caso in cui la necessità di utilizzare la funzione nel corpo si presenti in futuro. Ancora più importante, stai usando troppe parentesi nella sintassi cond; risolto in questa versione.

UPDATE: Due cose aggiuntive pena notare merito if-let:

1. Il modo if-let opere, se (first xs) sembra essere nil (false sarebbe lo stesso), il legame destrutturazione non avviene, così Clojure non si lamenterà di non essere in grado di vincolare nil a [unpack v].

2. Inoltre, if-let accetta una clausola else (in cui non è possibile fare riferimento alle variabili legate in if-let attacchi vettore - anche se siete nella clausola altra cosa, si sa che dove false o nil comunque).

Answer 2

Un po 'come questo, con un let all'interno del campo di applicazione della cond?

(defn operate-on-list [list] 
    (let [ el_first (first list) ] 
    (cond 
     (nil? el_first) (println "Finished") 
     :else (do 
     (let [ list_rest (rest list) ] 
       (println el_first) 
       (operate-on-list list_rest)))))) 

(operate-on-list '(1 2 3)) 

L'output è:

1 
2 
3 
Finished 

Answer 3

    ;use conditional let: http://richhickey.github.com/clojure-contrib/cond-api.html 

    (use 'clojure.contrib.cond) 

    (cond-let [b] 
     nil b 
     12 (prn (+ b 1)) 
     :else 17) 

    ;==> 13 

Un altro buon esempio può essere trovato qui http://www.mail-archive.com/clojure@googlegroups.com/msg03684.html