Skip to content

Instantly share code, notes, and snippets.

@soegaard

soegaard/gist:b04d03c207d12a09031e

Created June 10, 2014 18:24
Show Gist options
  • Save soegaard/b04d03c207d12a09031e to your computer and use it in GitHub Desktop.
Save soegaard/b04d03c207d12a09031e to your computer and use it in GitHub Desktop.
Download ZIP
Cross
Raw
gistfile1.txt
(define (cross a b)
(match-define (vector a1 a2 a3) (matrix->vector a))
(match-define (vector b1 b2 b3) (matrix->vector b))
(matrix [[(- (* a2 b3) (* a3 b2))]
[(- (* a3 b1) (* a1 b3))]
[(- (* a1 b2) (* a2 b1))]]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment