20 lines
373 B
Forth
20 lines
373 B
Forth
|
// For more information see https://aka.ms/fsharp-console-apps
|
||
|
|
|
||
|
|
type MarkX() =
|
||
|
|
class
|
||
|
|
abstract member some:unit-> unit
|
||
|
|
default this.some() =
|
||
|
|
printfn "Hello World!"
|
||
|
|
end
|
||
|
|
|
||
|
|
type SubMark() =
|
||
|
|
class
|
||
|
|
inherit MarkX()
|
||
|
|
|
||
|
|
override this.some (): unit =
|
||
|
|
printfn "Substract"
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
let code = SubMark()
|
||
|
|
code.some()
|