daily pastebin goal
49%
SHARE
TWEET

Untitled

a guest Dec 16th, 2018 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. cyfra(X) --> "0", {X is 0}.
  2. cyfra(X) --> "1", {X is 1}.
  3. cyfra(X) --> "2", {X is 2}.
  4. cyfra(X) --> "3", {X is 3}.
  5. cyfra(X) --> "4", {X is 4}.
  6. cyfra(X) --> "5", {X is 5}.
  7. cyfra(X) --> "6", {X is 6}.
  8. cyfra(X) --> "7", {X is 7}.
  9. cyfra(X) --> "8", {X is 8}.
  10. cyfra(X) --> "9", {X is 9}.
  11.  
  12.  
  13.  
  14. rok(C, S) --> cyfra(X), cyfra(Y), {C is X*10 + Y, S = 9*X + 7*Y}.
  15. mies(D, S) --> cyfra(X), cyfra(Y), {D is X*10 + Y, S = 3*X + Y}.
  16. dzien(E, S) --> cyfra(X), cyfra(Y), {E is X*10 + Y, S = 9*X, 7*Y}.
  17. reszta(F, S) --> cyfra(X), cyfra(Y), cyfra(Z), {F is X*100 + Y*10 + Z, S = 3*X + Y + 9*Z}.
  18. plec(G, S) --> cyfra(X), {G is X, S = 7*X}.
  19. suma(H) --> cyfra(X), {H is X}.
  20.  
  21. pesel([E, D, C]) --> rok(C, S1), mies(D, S2), dzien(E, S3), reszta(F, S4), plec(G, S5), suma(H),
  22. {P is E, U is D, I is C, O is G, Q is (S1+S2+S3+S4+S5)/10}.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top