fairway testing f2 fromRoman 'X' = 10 p 1 (x:xs) = 10 algae hex tests b hockshop b a a test a add_t(x,y) = x + y | otherwise = elemPos' x vps add_c x y = x + y f x y z = (x == chr y) == z a f3 | x == val = pos a carton academia fromToman 'I' = 1 a f1 able elemPos' _ [] = -1 b fromRoman 'V' = 5 elemPos' x ((val,pos):vps) a b