aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Add all the A tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 14:58:50 -07:00
parent 2dd7375f96
commit 051504d65b
1608 changed files with 18584 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Abstract-type/Haskell/abstract-type-1.hs Normal file
View file

@ -0,0 +1,3 @@
class Eq a where
(==) :: a -> a -> Bool
(/=) :: a -> a -> Bool

5
Task/Abstract-type/Haskell/abstract-type-2.hs Normal file
View file

@ -0,0 +1,5 @@
class Eq a where
(==) :: a -> a -> Bool
(/=) :: a -> a -> Bool
x /= y = not (x == y)
x == y = not (x /= y)

2
Task/Abstract-type/Haskell/abstract-type-3.hs Normal file
View file

@ -0,0 +1,2 @@
func :: (Eq a) => a -> Bool
func x = x == x

1
Task/Abstract-type/Haskell/abstract-type-4.hs Normal file
View file

@ -0,0 +1 @@
data Foo = Foo {x :: Integer, str :: String}

3
Task/Abstract-type/Haskell/abstract-type-5.hs Normal file
View file

@ -0,0 +1,3 @@
instance Eq Foo where
(Foo x1 str1) == (Foo x2 str2) =
(x1 == x2) && (str1 == str2)

3
Task/Abstract-type/Haskell/abstract-type-6.hs Normal file
View file

@ -0,0 +1,3 @@
class abstraction()
abstract method compare(l,r) # generates runerr(700, "method compare()")
end