if_then_else(Condition, A, _):- Condition, !, A.
if_then_else(_, _, B):- B.

findMostSimilar(Film, [], Similarity, _, SimAlt, NewArray, AltArray):-
	NewArray = AltArray,
	Similarity is SimAlt, !.

findMostSimilar(Film, [X|Y], Similarity, SimTemp, SimAlt, NewArray, AltArray):-
	similarity(Film, X, Sim),
	Sim \= 100.0,
	Sim > 10,
	append(AltArray, [X], NewArray),
	if_then_else(SimAlt < Sim, SimTemp is Sim, SimTemp is SimAlt),
	findMostSimilar(Film, Y, Similarity, NewSim, SimTemp, NewArr, NewArray).

findMostSimilar(Film, [_|Y], Similarity, SimTemp, SimAlt, NewArray, AltArray):-
	findMostSimilar(Film, Y, Similarity, SimTemp, SimAlt, NewArray, AltArray).

mostSimilar(Film, Similarity, Films):-
	film(Film, Categorias1, Duration1, Score1),
	findall(X, film(X,_,_,_), Array), !,
	findMostSimilar(Film, Array, Similarity, SimTemp, 0, Films, []), !.