fork(5) download
copy 
  1. pravil(yaroslavmudryiy,1019,1054).
  2. pravil(izyaslavpervyiy,1054,1077).
  3. pravil(vsevolodpervyiy,1078,1093).
  4. pravil(svyatopolkvtoroy,1092,1112).
  5. pravil(vladimirmonomah,1113,1125).
  6. pravil(mstislavvelikiy,1125,1132).
  7.  
  8. pravitel(X,Y) :- pravil(X,A,B),Y>=A,Y=<B. 
  9.  
  10. solve(Y) :-
  11.  pravitel(X,Y),
  12.  write(X),
  13.  nl,
  14.  fail.
  15.  
Success #stdin #stdout 0s 76480KB
comments (?)
stdin
copy 
solve(1092).
stdout
copy 
GNU Prolog 1.3.0
By Daniel Diaz
Copyright (C) 1999-2007 Daniel Diaz
vsevolodpervyiy
svyatopolkvtoroy

no
https://ideone.com/Yvh21k
language:
Prolog (gprolog 1.4.5)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!