Kezdőlap Felfedezés Súgó
Bejelentkezés
CNI
/
Prlog
2
0
Másolás 0
Fájlok Problémák 0 Beolvasztási kérések 0 Wiki
Fa: 96920e094b
Branch-ok Tag-ek
Prlog
/
tp
/
1
/
prime.lp

prime.lp 101 B
Előzmények Nyers

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.