asdasd
asdunknown
abc
2 years ago
323 B
5
Indexable
st_wiel(X,X,1). st_wiel(C,_,0):-number(C). st_wiel(-W,X,N):-st_wiel(W,X,N). st_wiel(W1+W2,X,N):-st_wiel(W1,X,N1), st_wiel(W2,X,N2), N is max(N1,N2). st_wiel(W1*W2,X,N):-st_wiel(W1,X,N1), st_wiel(W2,X,N2), N is N1+N2. st_wiel(W^M,X,N):-integer(M), M>1, st_wiel(W,X,M1), N is M1*M.
Editor is loading...