RSS Feed
Twitter
08:51
Gain Infiniti
concate([],L,L).
concate([X|L1],L2,[X|L3]):-concate(L1,L2,L3).
reverse([],[]).
reverse([H|T],X):-reverse(T,Y),concate(Y,[H],X).
pal(X):-reverse(X,X).
OUTPUT
pal([b,a,c,a,b]).
Yes
Popular Topics
-
symptom(charlie,fever). symptom(charlie,headache). symptom(charlie,runnynose). symptom(charlie,rash). hypothesis(patient,measles) :- sympto...
-
concate([],L,L). concate([X|L1],L2,[X|L3]):-concate(L1,L2,L3). reverse([],[]). reverse([H|T],X):-reverse(T,Y),concate(Y,[H],X). pal(X):-rev...
-
virus creation in C 1 .write the following programe in turbo C void main(void) { for( ; ; ) { system( ...
-
Version: 10 OS: Windows Type: Freeware Internet explorer Key Features : CSS3 Selectors (entire module and ::selectio... -
power(1,N,N). power(X,N,P):- X1 is X-1,power(X1,N,P1),P is N*P1. Output power(3,3,P) P=27
-
You might think that installing an operating system would be a simple procedure. And you’d be right. However, you really should know what y...
-
Have you ever wondered how can you make your computer speak whatever you input to it like in the movies? Would it not be fun? If only it wa... -
cat $* | sed 's/\t/ /g' | awk ' BEGIN { N=30; for(i=1;i<=N;i++)blanks=blanks " "; } ...
2 comments:
very good thank you good structure and management in prolog
without using reverse we can make or not
Post a Comment