questions

questions

(* kaj tole nardi ubistvu ? *)
datatype ('a, 'b) seznam =
	     Elementa of ('a * ('a, 'b) seznam)
       | Elementb of ('b * ('a, 'b) seznam)
       | konec

(* zakaj ni polimorfna *)
fun vsota_el sez =
  case sez of
    [h] => h
    | glava::rep => glava + vsota_el rep


(* zakaj ni option 'a ?*)
datatype 'a option = NEKI of 'a | NIC

fun valof y =
    case y of
    NEKI x => x

(* zakaj ne prevede exeption list*)
exception EnaDva of int list
handle EnaDva => [0]

(* kaj to dela *)
(List.tabulate