shithub: sl

Info  •  Files  •  Log  •  Branches

add zip-with and zip (thanks spew)

--- a/boot/sl.boot

+++ b/boot/sl.boot

@@ -450,4 +450,5 @@

 	    vinfo #fn("n30182e3:" #() vinfo) vinfo:heap? #.cadr vinfo:index

 	    #4# vinfo:sym #.car void

 	    #1# void? #fn("n10IQ:" #() void?) zero?

-	    #fn("n10El2:" #() zero?))

+	    #fn("n10El2:" #() zero?) zip #fn("z070710P}2:" #(zip-with list) zip) zip-with

+	    #fn("z1200>11}2:" #(#fn("z070A0}3:" #(map))) zip-with))

--- a/src/system.lsp

+++ b/src/system.lsp

@@ -473,6 +473,15 @@

                 (cons elt

                       (delete-duplicates tail)))))))

+; you are not expected to understand this -- spew

+

+(def (zip-with f . lst)

+  (apply (λ x (apply map f x))

+         lst))

+

+(def (zip . lst)

+  (apply zip-with (cons list lst)))

+

 ;;; backquote

 (def (revappend l1 l2) (reverse-  l2 l1))