https://github.com/divs1210/streamer

threading macro(s) for transducers / transducers re-imagined as streams
https://github.com/divs1210/streamer

clojure transducers

Last synced: about 5 hours ago
JSON representation

threading macro(s) for transducers / transducers re-imagined as streams

• Host: GitHub
• URL: https://github.com/divs1210/streamer
• Owner: divs1210
• License: epl-1.0
• Created: 2018-06-08T14:47:27.000Z (over 6 years ago)
• Default Branch: master
• Last Pushed: 2020-12-27T17:38:25.000Z (almost 4 years ago)
• Last Synced: 2024-07-26T05:20:52.892Z (4 months ago)
• Topics: clojure, transducers
• Language: Clojure
• Homepage:
• Size: 21.5 KB
• Stars: 41
• Watchers: 4
• Forks: 1
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • Changelog: CHANGELOG.md
  • License: LICENSE

Awesome Lists containing this project

README

        
```

Study hard what interests you the most in the most undisciplined, irreverent and original manner possible. 

- Richard Feynmann

```

# streamer

[![Clojars Project](https://img.shields.io/clojars/v/divs1210/streamer.svg)](https://clojars.org/divs1210/streamer)

[![CircleCI](https://circleci.com/gh/divs1210/streamer/tree/master.svg?style=svg)](https://circleci.com/gh/divs1210/streamer/tree/master)

[![codecov](https://codecov.io/gh/divs1210/streamer/branch/master/graph/badge.svg)](https://codecov.io/gh/divs1210/streamer)

## What

threading macro(s) for transducers / transducers reimagined as streams

## Usage

```clojure

(require '[streamer.core

           :refer [=> transduce! sequence! into!]])

;; Ex. 1

;; =====

;; this code

(=> (range 10)

    (take 5)

    (map inc)

    (transduce! *))

;; is the same as

(->> (range 10)

     (take 5)

     (map inc)

     (reduce *))

;; and compiles to

((fn [%xform %coll]

   (transduce %xform * %coll)) (comp (take 5) 

                                     (map inc))

                               (range 10))

;; and can also be written as

(=> (range 10)

    (take 5)

    (map inc)

    (transduce %xform * %coll))

;; Ex. 2

;; =====

;; this code

(=> (range 10)

    (filter odd?)

    (map inc)

    (sequence!))

;; is the same as

(->> (range 10)

     (filter odd?)

     (map inc))

;; and compiles to

((fn [%xform %coll]

   (sequence %xform %coll)) (comp (filter odd?) 

                                  (map inc))

                            (range 10))

;; and can also be written as

(=> (range 10)

    (filter odd?)

    (map inc)

    (sequence %xform %coll))

;; Ex. 3

;; =====

;; this code

(require '[net.cgrand.xforms :as x])

(=> (range 8)

    (x/partition 2)

    (map vec)

    (into! {}))

;; is the same as

(->> (range 8)

     (partition 2)

     (map vec)

     (into {}))

;; and compiles to

((fn [%xform %coll]

   (into {} %xform %coll)) (comp (x/partition 2)

                                 (map vec))

                           (range 8))

;; and can also be written as

(=> (range 8)

    (x/partition 2)

    (map vec)

    (into {} %xform %coll))

```

## Profit?

```clojure

(time (dotimes [_ 1000000]

        (=> (range 10)

            (filter even?)

            (map #(Math/sqrt %))

            (transduce! *))))

"Elapsed time: 550.802941 msecs"

(time (dotimes [_ 1000000]

        (->> (range 10)

             (filter even?)

             (map #(Math/sqrt %))

             (reduce *))))

"Elapsed time: 1157.937817 msecs"

```

## License

Copyright © 2018 Divyansh Prakash

Distributed under the Eclipse Public License either version 1.0.