Etusivu Tutki Apua
Kirjaudu sisään
CNI
/
Prlog
2
0
Fork 0
Tiedostot Ongelmat 0 Pull-pyynnöt 0 Wiki
Puu: 96920e094b
Branchit Tagit
Prlog
/
tp
/
1
/
prime.lp

prime.lp 101 B
Historia Raaka

1234 
  1. % Define
    2. 

  2. #const n = 10.
    3. 

  3. compose(N) :- N=1..n, I=2..N-1, N\I = 0.
    4. 

  4. prime(N) :- N=2..n, not compose(N).
    5.