-module(prog).
-export([main/0]).
job1(X,Y,U,V) ->
A = (X+Y/(5+R))/(abs(Y-X)+R),
{A,B}.
job2([XH|XT
],[YH|_
]) when XH > YH -> lists:
map(fun(X) -> X+1 end,[XH|XT
]); job2(_,_) -> nil.
main() ->
io:
format("~p~n~p~n~p~n",[job1(47.80,-5.5,-2.3,-0.8),job2([3,1,4,15],[2,1]),job2([3],[])]), true.
LW1vZHVsZShwcm9nKS4KLWV4cG9ydChbbWFpbi8wXSkuCgpqb2IxKFgsWSxVLFYpIC0+CiAgICBSID0gbWF0aDpzcXJ0KFgpLAoJQSA9IChYK1kvKDUrUikpLyhhYnMoWS1YKStSKSwKCUIgPSBtYXRoOmV4cChVKzEpK21hdGg6YXNpbihWKSwKCXtBLEJ9LgoKam9iMihbWEh8WFRdLFtZSHxfXSkgd2hlbiBYSCA+IFlIIC0+IGxpc3RzOm1hcChmdW4oWCkgLT4gWCsxIGVuZCxbWEh8WFRdKTsKam9iMihfLF8pIC0+IG5pbC4KCm1haW4oKSAtPgoJaW86Zm9ybWF0KCJ+cH5ufnB+bn5wfm4iLFtqb2IxKDQ3LjgwLC01LjUsLTIuMywtMC44KSxqb2IyKFszLDEsNCwxNV0sWzIsMV0pLGpvYjIoWzNdLFtdKV0pLAoJdHJ1ZS4=