-
-
Save tomjack/00c6fe4818b1722a27c6 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(let [iter__4063__auto__ (fn iter__2016 [s__2017] | |
(lazy-seq | |
(loop [s__2017 s__2017] | |
(when-let | |
[s__2017 (seq s__2017)] | |
(if | |
(chunked-seq? s__2017) | |
(let | |
[c__4061__auto__ | |
(chunk-first s__2017) | |
size__4062__auto__ | |
(int (count c__4061__auto__)) | |
b__2019 | |
(chunk-buffer | |
size__4062__auto__)] | |
(if | |
(loop | |
[i__2018 (int 0)] | |
(if | |
(< | |
i__2018 | |
size__4062__auto__) | |
(let | |
[x | |
(.nth | |
c__4061__auto__ | |
i__2018)] | |
(do | |
(chunk-append | |
b__2019 | |
(* x x)) | |
(recur | |
(unchecked-inc | |
i__2018)))) | |
true)) | |
(chunk-cons | |
(chunk b__2019) | |
(iter__2016 | |
(chunk-rest s__2017))) | |
(chunk-cons | |
(chunk b__2019) | |
nil))) | |
(let | |
[x (first s__2017)] | |
(cons | |
(* x x) | |
(iter__2016 | |
(rest s__2017)))))))))] | |
(iter__4063__auto__ [1 2 3])) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment