Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

slice is amazing, @olasd is amazing, I love everything.

Browse Source
This commit is contained in:
Paul Tagliamonte 2014-01-10 22:50:20 -05:00
parent 110476901c
commit cc2f45be69
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hy/core/macros.hy
View File

@ -52,10 +52,8 @@
; basecase, let's just slip right in. ; basecase, let's just slip right in.
`(for* [~@args] ~@body) `(for* [~@args] ~@body)
; otherwise, let's do some legit handling. ; otherwise, let's do some legit handling.
(let [[it (iter args)] (let [[alist (slice args 0 nil 2)]
[az (list (zip it it))] [ilist (slice args 1 nil 2)]]
[alist (list-comp (get x 0) [x az])]
[ilist (list-comp (get x 1) [x az])]]
`(do `(do
(import itertools) (import itertools)
(for* [(, ~@alist) (itertools.product ~@ilist)] ~@body)))))) (for* [(, ~@alist) (itertools.product ~@ilist)] ~@body))))))