Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
alarga(Figura1,Factor,Figura2) :- Figura1 =.. [Tipo|Arg1], multiplica_lista(Arg1,Factor,Arg2), Figura2 =.. [Tipo|Arg2]. multiplica_lista([],_,[]). multiplica_lista([X1|L1],F,[X2|L2]) :- X2 is X1*F, multiplica_lista(L1,F,L2). /** <examples> ?- alarga(triángulo(3,4,5),2,F). ?- alarga(cuadrado(3),2,F). */