Number subclass: Komplex [
 |valos kepzetes|

 init: v init: k [
     valos := v.
     kepzetes := k.

 ]

 valos [
    ^valos.
 ]

 kepzetes [
    ^kepzetes.
 ]

 + masik [
     |er v k|
     v := valos + masik valos.
     k := kepzetes + masik kepzetes.
     er := Komplex new: v new: k.
     ^er.
 ]
 - masik [
     |er v k|
     v := valos - masik valos.
     k := kepzetes - masik kepzetes.
     er := Komplex new: v new: k.
     ^er.
 ]

printNl [
    kepzetes >= 0 ifTrue: [
        valos display.
        '+' display.
        kepzetes display.
        'i' displayNl.
    ] ifFalse: [
        valos display.
        kepzetes display.
        'i' displayNl.
    ]
 ]
 ]

 Komplex class extend [
    new: v new: k [
        |obj| obj := super new.
        obj init: v init: k.
        ^obj.
    ]
]


|k1 k2|
k1 := Komplex new: 2 new: 3.
k1 printNl.
k2 := Komplex new: 1 new: 4.
k2 printNl.
(k1 + k2) printNl.
(k1 - k2) printNl.
!