From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 2 Feb 2016 19:24:50 +0100 Subject: Moved to 1415 directory --- 1415/fp1/week2/camil/VectorOverloading.dcl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 1415/fp1/week2/camil/VectorOverloading.dcl (limited to '1415/fp1/week2/camil/VectorOverloading.dcl') diff --git a/1415/fp1/week2/camil/VectorOverloading.dcl b/1415/fp1/week2/camil/VectorOverloading.dcl new file mode 100644 index 0000000..76f8520 --- /dev/null +++ b/1415/fp1/week2/camil/VectorOverloading.dcl @@ -0,0 +1,14 @@ +definition module VectorOverloading + +import StdEnv + +:: Vector2 a = {x0 :: a, x1 :: a} + +instance == (Vector2 a) | == a +instance zero (Vector2 a) | zero a +instance one (Vector2 a) | one a +instance ~ (Vector2 a) | ~ a +instance + (Vector2 a) | + a +instance - (Vector2 a) | - a +instance * (Vector2 a) | * a +instance / (Vector2 a) | / a -- cgit v1.2.3