Преглед на файлове

Create composed relation

DricomDragon преди 5 години
родител
ревизия
187c2d683c
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      tp/1/prime.lp

+ 3 - 0
tp/1/prime.lp

@@ -0,0 +1,3 @@
+% Define
+#const n = 10.
+compose(N) :- N=1..n, I=2..N-1, N\I = 0.