Procházející oddíly další funkce v clojure

0

Otázka

Já jsem právě začal clojure, ale nemůžu přijít na to pomocí/vytvoření vyšších řádů funkce.

Mám rozdělen sbírku a chci, aby se projít do další funkce, která bude dělat něco k oknu položek. Nejsem si jistý, jak jít o tom to.

(def foo [:a :b :c :d :e])

(partition 3 1 foo)
;;=> ((:a :b :c) (:b :c :d) (:c :d :e))

(defn bar [start next end])

Myslím, že základní obrys by být.

(defn faz [collect]
    (partition 3 1 collect)
    ;;maybe do here before passing
    (bar stand next end)
)

Jsem možná předbíhám, ale vidím také, tam jsou další funkce, jako je snížení a platí, že mohou udělat něco podobného právo? I když, většina příkladů vidím to tak, že provádět operace na dvě položky, které jsou podobné (partition 2 1 foo)

clojure higher-order-functions
2021-11-20 10:49:57
2

Nejlepší odpověď

1

Můžete udělat něco jako

(defn bar [start next end])


(defn faz [collect]
  (let [partitions (partition 3 1 collect)]
    (apply bar partitions)
    ))

nebo pokud chcete volat bar přímo, můžete použít destructuring

(defn bar [start next end])

(defn faz [collect]
  (let [partitions (partition 3 1 collect)
        [start next end] partitions]
    (bar start next end)
    ))
2021-11-20 11:08:30
0

Vaše otázka je obecné a existuje více způsobů, jak tohoto dosáhnout, založené na očekávané výsledky a použité funkce.

Pokud se chcete vrátit sekvenci výsledků, použijte map a apply:

(defn results-for-triplets [collect]
  (map #(apply + %) (partition 3 1 collect)))

(results-for-triplets [1 2 3 4 5])
=> (6 9 12)

Pro lepší čitelnost, můžete použít ->> makro.

(defn results-for-triplets [collect]
  (->> collect
       (partition 3 1)
       (map #(apply + %))))

(results-for-triplets [1 2 3 4 5])
=> (6 9 12)

Můžete se vyhnout applypokud vaše funkce destructures prošel pořadí:

(defn sum3 [[a b c]]
  (+ a b c))

(defn results-for-triplets [collect]
  (->> collect
       (partition 3 1)
       (map sum3)))

(results-for-triplets [1 2 3 4 5])
=> (6 9 12)

Pokud chcete volat funkci pro nežádoucí účinek, a pak se vrátit nilpoužijte run!:

(defn print3 [[a b c]]
  (println a b c))

(defn results-for-triplets [collect]
  (->> collect
       (partition 3 1)
       (run! print3)))

(results-for-triplets [1 2 3 4 5])
1 2 3
2 3 4
3 4 5
=> nil
2021-11-20 11:51:18

V jiných jazycích

Tato stránka je v jiných jazycích

Русский
..................................................................................................................
Italiano
..................................................................................................................
Polski
..................................................................................................................
Română
..................................................................................................................
한국어
..................................................................................................................
हिन्दी
..................................................................................................................
Français
..................................................................................................................
Türk
..................................................................................................................
Português
..................................................................................................................
ไทย
..................................................................................................................
中文
..................................................................................................................
Español
..................................................................................................................
Slovenský
..................................................................................................................