gmisail / kilogram Goto Github PK

extern panic: (int) -> int
extern print: (string) -> int
extern int_to_string: (int) -> string

enum List['T]
	Cons('T, List['T]),
	Nil
end

function length['T](list: List['T]): int
    case list of
		List['T].Cons(num, tail) -> 1 + length['T](tail),
		List['T].Nil -> 0
	end
end

let initial_list = List[int].Cons(1, List[int].Cons(3, List[int].Cons(3, List[int].Cons(3, List[int].Cons(5, List[int].Nil)))))

print(int_to_string(length[int](initial_list)))