files/practicum/RomeinsGetal.icl


1
2
3
4
5
6
7
8
9
10
11
12
13

implementation module RomeinsGetal

import StdEnv

Start :: [Roman]
Start = [fromInt 42, fromInt 999, fromInt 1024]


:: RD    = M | D | C | L | X | V | I
:: Roman = Roman [RD]

instance toInt   Roman where // maak deze instantie af
instance fromInt Roman where // maak deze instantie af