Comments on: Filtrer, Projiser og Aggreger i Clojure

By: Torbjørn

Torbjørn — Mon, 28 Jun 2010 08:13:20 +0000

Nok en forbedring. Thread-makroen jeg brukte i eksempelet i denne blogposten (->) sender listen/resultatet videre som andre argument til neste metode i listen, og det skapte problemer. ->> sender derimot resultatet videre som siste argument, og da fungerte det bedre. Klarte nå å sette opp en pipeline med partial application uten å bruke "partial": (->> [1 2 3 5 8 13 21 33 54] (filter #(even? %)) (map #(.toString %)) (reduce #(str %1 %2 " ") "") println) Output fra denne lille Clojure-snutten er "2 8 54". Clojure oppfører seg nå som forventet i forhold til det jeg har lært fra F#.., herlig å kunne overføre kunnskap fra et språk til et annet!

By: Ameth

Ameth — Fri, 25 Jun 2010 09:18:22 +0000

Bare hyggelig :)

By: Torbjørn

Torbjørn — Fri, 25 Jun 2010 09:14:54 +0000

Tydeligvis ikke. Kanskje det bare er jeg som får lov til det :) Uansett takk for kodeeksemplet, interresant!

By: Ameth

Ameth — Fri, 25 Jun 2010 09:04:57 +0000

Ser ikke ut som om det virket.

By: Ameth

Ameth — Fri, 25 Jun 2010 09:03:08 +0000

Ah, takk.

(define (-> x . fs)
(define (chain x fs)
(if (null? fs) x (chain ((car fs) x) (cdr fs))))
(chain x fs))
(define (curry f . x) (lambda y (apply f (append x y))))
(define aList ‘(1 2 3 4 5 6 7 8 9 10))
(define (reduce f base lis)
(if (null? lis)
base
(f (car lis) (reduce f base (cdr lis)))))

(-> aList
(curry filter (lambda (x) (= (modulo x 2) 0)))
(curry map number->string)
(curry reduce (lambda (x y) (string-append x ” ” y)) “”)
display)

Jeg tror ikke scheme har partial, comp og reduce innebygget, så jeg lagde meg dem.

By: Torbjørn

Torbjørn — Fri, 25 Jun 2010 08:53:25 +0000

Ameth, et tips hvis du vil skrive kode i kommentarene. Bruk

{koden din her}

By: Torbjørn

Torbjørn — Fri, 25 Jun 2010 08:47:36 +0000

Og da har jeg funnet ut hvordan partial application og function composition fungerer i Clojure også! Her er et eksempel hvor jeg hvor jeg bruker begge deler til å kombinere 3 anonyme funksjoner: (def produce-even-string (comp (partial reduce #(str %1 %2 " ") "") (partial map #(.toString %)) (partial filter (fn [n] (= (rem n 2) 0))))) (println (produce-even-string a-list))

By: Ameth

Ameth — Fri, 25 Jun 2010 08:34:25 +0000

Noe slikt du mener? (i scheme (noe jeg og er ganske nybegynner i))

(-> aList
(curry filter (lambda (x) (= (modulo x 2) 0)))
(curry map number->string)
(curry reduce (lambda (x y) (string-append x ” ” y)) “”)
display)

By: Torbjørn

Torbjørn — Fri, 25 Jun 2010 08:24:04 +0000

PS: Oppdaget akkurat at Clojure har en even-funskjon. Det betyr at (= (rem % 2) 0) kan erstattes med (even? %).