%List2
%2
declare fun {Fib1 N}
       if N==0 then 0 elseif N==1 then 1 else {Fib1 N-1}+{Fib1 N-2} end end

{Show {Fib1 37}}
%approx 10 secs

declare fun {Fib2 N}
       local fun {TailFib N Acc Next}
            if N == 0 then Acc else {TailFib N-1 Next Acc+Next}
            end
         end
       in {TailFib N 0 1}
       end
    end

{Show {Fib2 37}}
%Less than 1 sec

%3.
declare
fun {Root3 A#Eps}
   local
      fun {Licz Acc}
     if {Abs {Pow Acc 3.} - A} =< Eps * {Abs A} then Acc
     else {Licz Acc + (A/{Pow Acc 2.} - Acc)/3.}
     end
      end
   in if A>=1. then {Licz A/3.} else {Licz A} end
   end
end

{Show {Root3 64.0#0.001}}

%4.
declare X = 0
%a)
declare _|_|X|_|_|nil = ~2|~1|0|1|2|nil
%b)
declare _#_|X#_|nil = 1#2|0#1|nil

%5.
declare fun {Initsegment L1#L2}
       case L1 of
          nil then true
       [] H|T then if L2 == nil then false
               elseif H == L2.1 then {Initsegment T#L2.2} else false
               end
       end
    end
%6.
declare fun {Replace_nth L#N#V}
       if {Length L} < N then raise 'List length is less than n'
                  end
       else case L of
           nil then raise 'List is empty'
                end
        [] H|T then if N==0 then V|T else H|{Replace_nth T#N-1#V}
                end
        end
       end
    end

{Show {Replace_nth (1|2|3|4|5|nil)#3#0}}