Ocaml

def zad1 (pointer:(Any,Float,Int)=  (*zad 1.a)
    if (pointer._2>0.0f )
    (List(pointer._1,pointer._1,pointer._1),List(pointer._3+pointer._3))
    else
        (List(pointer._1,pointer._1,pointer._1),List(pointer._3+pointer._3))

def zad2 (smallList(List[Float],bigList:List[List[Float]_)= (*zad 1.b)
    smallList.head + (bigList.head).head > 0.0f;;

def zad3 (listOne:List[Any], listTwo:List[Any])= (*zad 1.c)
 if(listOne.head==listTwo.head)  1
    else -1;;