Almost prime: Difference between revisions
Content deleted Content added
m →{{header|Prolog}}: fix indentation |
→{{header|Prolog}}: for k in 1 to 5 |
||
Line 467: | Line 467: | ||
</lang> |
</lang> |
||
Example using SWI-Prolog:<pre> |
Example using SWI-Prolog:<pre> |
||
?- between(1,5,I), |
|||
(almostPrime(I, 10, L) -> writeln(L)), fail. |
|||
[2,3,5,7,11,13,17,19,23,29] |
|||
[4,6,9,10,14,15,21,22,25,26] |
|||
[8,12,18,20,27,28,30,42,44,45] |
|||
[16,24,36,40,54,56,60,81,84,88] |
|||
[32,48,72,80,108,112,120,162,168,176] |
|||
?- time( (almostPrime(5, 10, L), writeln(L))). |
?- time( (almostPrime(5, 10, L), writeln(L))). |
||
[32,48,72,80,108,112,120,162,168,176] |
[32,48,72,80,108,112,120,162,168,176] |