Inheritance/Single: Difference between revisions
→{{header|Tcl}}: added comment markers |
m →{{header|Tcl}}: add version requirements |
||
Line 381: | Line 381: | ||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
||
{{works with|Tcl|8.6}} |
|||
{{works with|Tcl|8.5}}and the [http://wiki.tcl.tk/TclOO TclOO package] |
|||
<lang Tcl> |
<lang Tcl> |
||
oo::class create Animal { |
oo::class create Animal { |
Revision as of 14:10, 6 May 2009
![Task](http://static.miraheze.org/rosettacodewiki/thumb/b/ba/Rcode-button-task-crushed.png/64px-Rcode-button-task-crushed.png)
You are encouraged to solve this task according to the task description, using any language you may know.
Inheritance is an operation of type algebra that creates a new type from one or several parent types. The obtained type is called derived type. It inherits some of the properties of its parent types. Usually inherited properties are:
- methods
- components
- parts of the representation
The class of the new type is a subclass of the classes rooted in the parent types. When all (in certain sense) properties of the parents are preserved by the derived type, it is said to be a Liskov subtype. When properties are preserved then the derived type is substitutable for its parents in all contexts. Usually full substitutability is achievable only in some contexts.
Inheritance is
- single, when only one parent is allowed
- multiple, otherwise
Some single inheritance languages usually allow multiple inheritance for certain abstract types, interfaces in particular.
Inheritance can be considered as a relation parent-child. Parent types are sometimes called supertype, the derived ones are subtype. This relation is transitive and reflexive. Types bound by the relation form a directed acyclic graph (ignoring reflexivity). With single inheritance it becomes a tree.
Task: Show a tree of types which inherit from each other. The top of the tree should be a class called Animal. The second level should have Dog and Cat. Under Dog should be Lab and Collie. None of the classes need to have any functions, the only thing they need to do is inherit from the specified superclasses (overriding functions should be shown in Polymorphism). The tree should look like this:
Animal /\ / \ / \ Dog Cat /\ / \ / \ Lab Collie
ActionScript
<lang actionscript> public class Animal {
// ...
} </lang> <lang actionscript> public class Cat extends Animal {
// ...
} </lang> <lang actionscript> public class Dog extends Animal {
// ...
} </lang> <lang actionscript> public class Lab extends Dog {
// ...
} </lang> <lang actionscript> public class Collie extends Dog {
// ...
} </lang>
Ada
<lang ada> package Inheritance is
type Animal is tagged private; type Dog is new Animal with private; type Cat is new Animal with private; type Lab is new Dog with private; type Collie is new Dog with private;
private
type Animal is tagged null record; type Dog is new Animal with null record; type Cat is new Animal with null record; type Lab is new Dog with null record; type Collie is new Dog with null record;
end Inheritance; </lang>
C++
<lang cpp> class Animal {
// ...
};
class Dog: public Animal {
// ...
};
class Lab: public Dog {
// ...
};
class Collie: public Dog {
// ...
};
class Cat: public Animal {
// ...
}; </lang>
D
<lang d>class Animal {
// ...
}
class Dog: Animal {
// ...
}
class Lab: Dog {
// ...
}
class Collie: Dog {
// ...
}
class Cat: Animal {
// ...
}</lang>
Io
Animal := Object clone Cat := Animal clone Dog := Animal clone Collie := Dog clone Lab := Dog clone
Java
<lang java>public class Animal{
//functions go here...
}</lang> <lang java>public class Dog extends Animal{
//functions go here...
}</lang> <lang java>public class Cat extends Animal{
//functions go here...
}</lang> <lang java>public class Lab extends Dog{
//functions go here...
}</lang> <lang java>public class Collie extends Dog{
//functions go here...
}</lang>
Objective-C
<lang objc> @interface Animal : NSObject {
// ...
} // ... @end
@interface Dog : Animal {
// ...
} // ... @end
@interface Lab : Dog {
// ...
} // ... @end
@interface Collie : Dog {
// ...
} // ... @end
@interface Cat : Animal {
// ...
} // ... @end </lang>
OCaml
<lang ocaml>class animal =
object (self) (*functions go here...*) end</lang>
<lang ocaml>class dog =
object (self) inherit animal (*functions go here...*) end</lang>
<lang ocaml>class cat =
object (self) inherit animal (*functions go here...*) end</lang>
<lang ocaml>class lab =
object (self) inherit dog (*functions go here...*) end</lang>
<lang ocaml>class collie =
object (self) inherit dog (*functions go here...*) end</lang>
Perl
<lang perl>package Animal;
- functions go here...
1;</lang>
<lang perl>package Dog; use Animal; @ISA = qw( Animal );
- functions go here...
1;</lang>
<lang perl>package Cat; use Animal; @ISA = qw( Animal );
- functions go here...
1;</lang>
<lang perl>package Lab; use Dog; @ISA = qw( Dog );
- functions go here...
1;</lang>
<lang perl>package Collie; use Dog; @ISA = qw( Dog );
- functions go here...
1;</lang>
PHP
<lang ruby>class Animal {
// functions go here...
}
class Dog extends Animal {
// functions go here...
}
class Cat extends Animal {
// functions go here...
}
class Lab extends Dog {
// functions go here...
}
class Collie extends Dog {
// functions go here...
}</lang>
Python
Unrevised style classes: <lang python>class Animal:
pass #functions go here...
class Dog(Animal):
pass #functions go here...
class Cat(Animal):
pass #functions go here...
class Lab(Dog):
pass #functions go here...
class Collie(Dog):
pass #functions go here...</lang>
New style classes: <lang python> import time
class Animal(object):
def __init__(self, birth=None, alive=True): self.birth = birth if birth else time.time() self.alive = alive def age(self): return time.time() - self.birth def kill(self): self.alive = False
class Dog(Animal):
def __init__(self, bones_collected=0, **kwargs): self.bone_collected = bones_collected super(Dog, self).__init__(**kwargs)
class Cat(Animal):
max_lives = 9 def __init__(self, lives=max_lives, **kwargs): self.lives = lives super(Cat, self).__init__(**kwargs) def kill(self): if self.lives>0: self.lives -= 1 if self.lives == 0: super(Cat, self).kill() else: raise ValueError return self
class Labrador(Dog):
def __init__(self, guide_dog=False, **kwargs): self.guide_dog=False super(Labrador, self).__init__(**kwargs)
class Collie(Dog):
def __init__(self, sheep_dog=False, **kwargs): self.sheep_dog=False super(Collie, self).__init__(**kwargs)
lassie = Collie() felix = Cat() felix.kill().kill().kill() mr_winkle = Dog() buddy = Labrador() buddy.kill() print "Felix has",felix.lives, "lives, ","Buddy is %salive!"%("" if buddy.alive else "not ")</lang>
Output:
Felix has 6 lives, Buddy is not alive!
Ruby
<lang ruby>class Animal
#functions go here...
end
class Dog < Animal
#functions go here...
end
class Cat < Animal
#functions go here...
end
class Lab < Dog
#functions go here...
end
class Collie < Dog
#functions go here...
end</lang>
Smalltalk
This is an example of the object serialization format used by many varieties of Smalltalk. Normally the class tree would be defined and navigated via a class browser within a graphical Smalltalk environment. <lang smalltalk> Object subclass: #Animal
instanceVariableNames: ' ' "* space separated list of names *" classVariableNames: ' ' poolDictionaries: ' ' category: ' ' ! "* declare methods here, separated with '!' *" "* !Animal methodsFor: 'a category'! *" "* methodName *" "* method body! ! !Animal subclass: #Dog "* etc. *" ! !Animal subclass: #Cat "* etc. *" ! !Dog subclass: #Lab "* etc. *" ! !Dog subclass: #Collie "* etc. *" !</lang>
Tcl
and the TclOO package
<lang Tcl> oo::class create Animal {
# ...
} oo::class create Dog {
superclass Animal # ...
} oo::class create Cat {
superclass Animal # ...
} oo::class create Collie {
superclass Dog # ...
} oo::class create Lab {
superclass Dog # ...
} </lang>