ocaml/scala PWR

let rec suma lista =
    if lista == [] then float_of_int 0
    else List.hd lista +. suma(List.tl lista);;

let sumak (a,b,c,d) = a+.b+.c+.d;;

let rec polacz lista sep =
    if lista == [] then ""
    else List.hd lista ^ (if List.tl lista != [] then sep else "") ^ polacz (List.tl lista) sep;;

let listaString = ["Ala"; "nigdy"; "nie miała"; "kota"];;

 suma [5.;3.;2.];;
 suma [10.1;30.;25.];;
 suma [1.1;2.2;11.1];;
 suma [1.;1.;1.];;

sumak (3.,2.,5.,1.);;
sumak (3.5,2.4,5.1,1.3);;
sumak (33.,22.,51.,13.);;
sumak (3.,2.,1.,1.1);;

 polacz ["To"; "jest"; "napis"] "-";;
 polacz ["Ala"; "nigdy"; "nie miała"; "kota"] " | ";;
 polacz ["Każda"; "wichura"; "łamiąc"; "duże"; "drzewa"; "trzciną"; "zaledwie"; "kołysze";] " * ";;



SCALA

def mniejsze(list: List[Int], number: Int):Boolean = {
  if(list.head >= number) false;
  else if(list.tail == Nil) true;
  else mniejsze(list.tail, number)
}

mniejsze (1::2::3::4::5::Nil,6)
mniejsze (1::2::2::4::5::Nil,8)
mniejsze (1::2::3::46::5::Nil,6)
mniejsze (1::32::3::4::5::Nil,10)