Skip to content

Instantly share code, notes, and snippets.

@cametan001

cametan001/Component1.rkt

Created July 17, 2015 05:06
Show Gist options
  • Save cametan001/f24b8093bad6fa9b986d to your computer and use it in GitHub Desktop.
Save cametan001/f24b8093bad6fa9b986d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Component1.rkt
(define (Component1 s10 s11)
(let ((p1 (modulo (- (* a12 s11) (* a13n s10)) m1)))
(if (negative? p1)
(+ p1 m1)
p1)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment