-module(ora4).
-compile(export_all).

%%F=(fun(A)->A+1 end).


lessThan([],_)->[];
lessThan(L,M)->[A||A<-L,A<M].

biggerThan([],_)->[];
biggerThan(L,M)->[A||A<-L,A>=M].

qsort([])->[];
qsort([A])->A;
qsort([Head|Tail])->
    qsort(lessThan(Tail,Head))++[Head]++qsort(biggerThan(Tail,Head)).

qs([])->[];
qs([A])->[A];
qs([Head|Tail])->
    qs([X||X<-Tail,X<Head])++[Head]++qs([X||X<-Tail,X>=Head]).


readWhile(ExitString)->
    case io:get_line("-> ") of
        [ExitString|_] -> io:format("Itt a vege! ~p", [ExitString]);
        _ -> readWhile(ExitString)
    end.

reads()->
    case io:read("-> ") of
        {ok,Term} -> io:format("Itt a vege! ~p", [Term]);
        {error,Reason} -> io:format("Hiba! ~p", [Reason])
    end.