/*Ubung 1*/
.Person~new("Nikolas")~names
.Student~new("Peter","Bachelorstudium BaWiSo",2020)~~names ~studieren
.Mitarbeiter~new("Andrea","Prae Doc","Produktionsmanagement",2000)~~names ~arbeiten
.studentischerMitarbeiter~new("Anna","Masterstudium SCM",2021,"Tutor","Produktionsmanagement",500)~vorstellen
::CLASS Person
::ATTRIBUTE name
::METHOD INIT
	EXPOSE name
	USE ARG name
::METHOD names
	say "Mein Name ist" self~name

::CLASS Student MIXINCLASS Person
::ATTRIBUTE studium
::ATTRIBUTE jahr
::METHOD INIT
	EXPOSE studium jahr
	USE ARG name, studium, jahr
	self~init:super(name)
::METHOD studieren
	SAY "Ich studiere" self~studium "seit" self~jahr

::CLASS Mitarbeiter MIXINCLASS Person
::METHOD arbeiten
	SAY "Ich arbeite an der WU"

--Alternative L��sung, die f��r Klasse studentischerMitarbeiter nicht funktioniert hat
/*::ATTRIBUTE position
::ATTRIBUTE institut
::ATTRIBUTE gehalt

::METHOD INIT
	EXPOSE position institut gehalt
	USE ARG name, position, institut, gehalt
	self~init:super(name)*/
::METHOD arbeiten
	USE ARG position, institut, gehalt
	say "Ich arbeite als" self~position "am Institut f��r" self~institut "und verdiene" self~gehalt "EUR pro Monat."*/


::CLASS studentischerMitarbeiter SUBCLASS Student INHERIT Mitarbeiter
::METHOD init
	USE ARG name, studium, jahr, position, institut, gehalt
	self~init:super(name,studium,jahr,position,institut,gehalt)
::METHOD vorstellen
	self ~~names ~~studieren ~~arbeiten(position,institut,gehalt)


/*Ubung 2*/
text=";Stefan; Anna; Martin; Matthaus"
PARSE VAR text 1 a +1 name1 (a) name2 (a) name3 (a) name4 


arr=.array~of(name1, name2, name3, name4)

do i over arr
   say i
end