RosettaCodeData/Task/Variadic-function/Prolog/variadic-function-2.pro

4 lines
92 B
Prolog

execute( Term ) :-
Term =.. [F | Args],
forall( member(X,Args), (G =.. [F,X], G, nl) ).