Advertisement
Guest User

Untitled

a guest
Mar 11th, 2013
227
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.57 KB | None | 0 0
  1. (let* [iter__4468__auto__ (clojure.core/fn iter__2395 [s__2396] (clojure.core/lazy-seq (clojure.core/loop [s__2396 s__2396] (clojure.core/when-first [p0 s__2396] (clojure.core/let [iterys__4464__auto__ (clojure.core/fn iter__2397 [s__2398] (clojure.core/lazy-seq (clojure.core/loop [s__2398 s__2398] (clojure.core/when-first [p1 s__2398] (clojure.core/let [iterys__4464__auto__ (clojure.core/fn iter__2399 [s__2400] (clojure.core/lazy-seq (clojure.core/loop [s__2400 s__2400] (clojure.core/when-first [p2 s__2400] (clojure.core/let [iterys__4464__auto__ (clojure.core/fn iter__2401 [s__2402] (clojure.core/lazy-seq (clojure.core/loop [s__2402 s__2402] (clojure.core/when-first [p3 s__2402] (clojure.core/let [iterys__4464__auto__ (clojure.core/fn iter__2403 [s__2404] (clojure.core/lazy-seq (clojure.core/loop [s__2404 s__2404] (clojure.core/when-first [p4 s__2404] (clojure.core/let [iterys__4464__auto__ (clojure.core/fn iter__2405 [s__2406] (clojure.core/lazy-seq (clojure.core/loop [s__2406 s__2406] (clojure.core/when-first [p5 s__2406] (clojure.core/let [iterys__4464__auto__ (clojure.core/fn iter__2407 [s__2408] (clojure.core/lazy-seq (clojure.core/loop [s__2408 s__2408] (clojure.core/when-let [s__2408 (clojure.core/seq s__2408)] (if (clojure.core/chunked-seq? s__2408) (clojure.core/let [c__4466__auto__ (clojure.core/chunk-first s__2408) size__4467__auto__ (clojure.core/int (clojure.core/count c__4466__auto__)) b__2410 (clojure.core/chunk-buffer size__4467__auto__)] (if (clojure.core/loop [i__2409 (clojure.core/int 0)] (if (clojure.core/< i__2409 size__4467__auto__) (clojure.core/let [p6 (.nth c__4466__auto__ i__2409)] (do (clojure.core/chunk-append b__2410 (do-print board (:oname operator) p0 p1 p2 p3 p4 p5 p6)) (recur (clojure.core/unchecked-inc i__2409)))) true)) (clojure.core/chunk-cons (clojure.core/chunk b__2410) (iter__2407 (clojure.core/chunk-rest s__2408))) (clojure.core/chunk-cons (clojure.core/chunk b__2410) nil))) (clojure.core/let [p6 (clojure.core/first s__2408)] (clojure.core/cons (do-print board (:oname operator) p0 p1 p2 p3 p4 p5 p6) (iter__2407 (clojure.core/rest s__2408))))))))) fs__4465__auto__ (clojure.core/seq (iterys__4464__auto__ (nth (:params operator) 6 (quote (nil)))))] (if fs__4465__auto__ (clojure.core/concat fs__4465__auto__ (iter__2405 (clojure.core/rest s__2406))) (recur (clojure.core/rest s__2406)))))))) fs__4465__auto__ (clojure.core/seq (iterys__4464__auto__ (nth (:params operator) 5 (quote (nil)))))] (if fs__4465__auto__ (clojure.core/concat fs__4465__auto__ (iter__2403 (clojure.core/rest s__2404))) (recur (clojure.core/rest s__2404)))))))) fs__4465__auto__ (clojure.core/seq (iterys__4464__auto__ (nth (:params operator) 4 (quote (nil)))))] (if fs__4465__auto__ (clojure.core/concat fs__4465__auto__ (iter__2401 (clojure.core/rest s__2402))) (recur (clojure.core/rest s__2402)))))))) fs__4465__auto__ (clojure.core/seq (iterys__4464__auto__ (nth (:params operator) 3 (quote (nil)))))] (if fs__4465__auto__ (clojure.core/concat fs__4465__auto__ (iter__2399 (clojure.core/rest s__2400))) (recur (clojure.core/rest s__2400)))))))) fs__4465__auto__ (clojure.core/seq (iterys__4464__auto__ (nth (:params operator) 2 (quote (nil)))))] (if fs__4465__auto__ (clojure.core/concat fs__4465__auto__ (iter__2397 (clojure.core/rest s__2398))) (recur (clojure.core/rest s__2398)))))))) fs__4465__auto__ (clojure.core/seq (iterys__4464__auto__ (nth (:params operator) 1 (quote (nil)))))] (if fs__4465__auto__ (clojure.core/concat fs__4465__auto__ (iter__2395 (clojure.core/rest s__2396))) (recur (clojure.core/rest s__2396))))))))] (iter__4468__auto__ (nth (:params operator) 0 (quote (nil)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement