create or replace procedure proc_list_similar_recipes(id_reference IN RECIPE.IDR%TYPE)AS
Recipe1 Recipe.RECIPETITLE%Type;
Recipe2 Recipe.RECIPETITLE%Type;
BEGIN
dbms_output.put_line('Similarity between');
for cur IN (
	Select 
		id_reference AS ID1 , 
		Recipe.Idr AS ID2 , 
		func_similarity(id_reference,IDR) AS Matching 
	From Recipe 
	Where idr <> id_reference 
	Order By Matching DESC)
loop
Select RecipeTitle Into Recipe1 From RECIPE WHERE IDR= cur.ID1;
Select RecipeTitle Into Recipe2 From RECIPE WHERE IDR= cur.ID2;
dbms_output.put_line('The recipe '|| Recipe1 ||' ('||cur.ID1||') and '|| Recipe2 ||' ('|| cur.ID2 || ') : '||cur.Matching);
end loop;
END proc_list_similar_recipes;
/