codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
module Collinear (collinear) where (.-) :: Num a => (a, a) -> (a, a) -> (a, a) (x1, x2) .- (y1, y2) = (x1 - y1, x2 - y2) cross :: Num a => (a, a) -> (a, a) -> a (x1, x2) `cross` (y1, y2) = x1 * y2 - x2 * y1 collinear :: (Num a, Eq a) => (a, a) -> (a, a) -> (a, a) -> Bool collinear v1 v2 v3 = (v1 .- v2) `cross` (v1 .- v3) == 0
Private
[
?
]
Run code
Submit