Skip to content

Instantly share code, notes, and snippets.

@cametan001

cametan001/Component2.rkt

Created July 17, 2015 05:30
Show Gist options
  • Save cametan001/5285b2d444a5eae8dd53 to your computer and use it in GitHub Desktop.
Save cametan001/5285b2d444a5eae8dd53 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Component2.rkt
(define (stream2 s20 s21 s22)
(stream-cons s20 (stream2 s21 s22 (Component2 s20 s22))))
(define (Component2 s20 s22)
(let ((p2 (modulo (- (* a21 s22) (* a23n s20)) m2)))
(if (negative? p2)
(+ p2 m2)
p2)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment