Skip to content

Instantly share code, notes, and snippets.

@cametan001

cametan001/Combination.rkt

Created July 17, 2015 05:55
Show Gist options
  • Save cametan001/3a956a3f69f90bd3f44f to your computer and use it in GitHub Desktop.
Save cametan001/3a956a3f69f90bd3f44f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Combination.rkt
(define (Combination stream1 stream2)
(let ((stream1 (stream-cdr (stream-cdr (stream-cdr stream1))))
(stream2 (stream-cdr (stream-cdr (stream-cdr stream2)))))
(stream-map (lambda (p1 p2)
(* (- p1 (if (<= p1 p2)
(- p2 m1)
p2)) norm))
stream1 stream2)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment