Commit 89b34b8e authored by Mart Lubbers's avatar Mart Lubbers

Merge branch 'master' of gitlab.science.ru.nl:clean-and-itasks/clean-platform

parents de790860 12222a0c
Pipeline #8946 passed with stage
in 1 minute and 50 seconds
...@@ -6,8 +6,8 @@ from Data.Foldable import class Foldable ...@@ -6,8 +6,8 @@ from Data.Foldable import class Foldable
from Data.Traversable import class Traversable from Data.Traversable import class Traversable
from Data.Bifunctor import class Bifunctor from Data.Bifunctor import class Bifunctor
tuple :: a b -> (a,b) tuple :: .a .b -> .(.a,.b)
tuple3 :: a b c -> (a,b,c) tuple3 :: .a .b .c -> .(.a,.b,.c)
appFst :: (.a -> .c) !(.a,.b) -> (.c,.b) appFst :: (.a -> .c) !(.a,.b) -> (.c,.b)
appSnd :: (.b -> .c) !(.a,.b) -> (.a,.c) appSnd :: (.b -> .c) !(.a,.b) -> (.a,.c)
...@@ -16,7 +16,7 @@ appFst3 :: (.a -> .d) !(.a,.b,.c) -> (.d,.b,.c) ...@@ -16,7 +16,7 @@ appFst3 :: (.a -> .d) !(.a,.b,.c) -> (.d,.b,.c)
appSnd3 :: (.b -> .d) !(.a,.b,.c) -> (.a,.d,.c) appSnd3 :: (.b -> .d) !(.a,.b,.c) -> (.a,.d,.c)
appThd3 :: (.c -> .d) !(.a,.b,.c) -> (.a,.b,.d) appThd3 :: (.c -> .d) !(.a,.b,.c) -> (.a,.b,.d)
swap :: !(a, b) -> (b, a) swap :: !.(.a, .b) -> .(.b, .a)
instance Functor ((,) a) instance Functor ((,) a)
......
...@@ -10,10 +10,10 @@ import Data.Foldable ...@@ -10,10 +10,10 @@ import Data.Foldable
import Data.Traversable import Data.Traversable
import Control.Applicative import Control.Applicative
tuple :: a b -> (a,b) tuple :: .a .b -> .(.a,.b)
tuple a b = (a,b) tuple a b = (a,b)
tuple3 :: a b c -> (a,b,c) tuple3 :: .a .b .c -> .(.a,.b,.c)
tuple3 a b c = (a,b,c) tuple3 a b c = (a,b,c)
appFst:: (.a -> .c) !(.a,.b) -> (.c,.b) appFst:: (.a -> .c) !(.a,.b) -> (.c,.b)
...@@ -31,7 +31,7 @@ appSnd3 f (a,b,c) = (a,f b,c) ...@@ -31,7 +31,7 @@ appSnd3 f (a,b,c) = (a,f b,c)
appThd3 :: (.c -> .d) !(.a,.b,.c) -> (.a,.b,.d) appThd3 :: (.c -> .d) !(.a,.b,.c) -> (.a,.b,.d)
appThd3 f (a,b,c) = (a,b,f c) appThd3 f (a,b,c) = (a,b,f c)
swap :: !(a, b) -> (b, a) swap :: !.(.a, .b) -> .(.b, .a)
swap (a,b) = (b,a) swap (a,b) = (b,a)
instance Functor ((,) a) instance Functor ((,) a)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment