Last active
October 18, 2022 07:27
-
-
Save yycking/b1f33cec63f4dc67d1c75d91350e679a to your computer and use it in GitHub Desktop.
輸出18~399間的質數
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| :- set_prolog_flag(verbose, silent). | |
| :- initialization(main). | |
| 非質數([X | _], Value):- | |
| Mod is Value mod X, | |
| Mod = 0. | |
| 非質數([_ | Other], Value):- | |
| 非質數(Other, Value). | |
| 質數(Prime, From, To):- | |
| From > To, | |
| write(Prime). | |
| 質數(Prime, From, To):- | |
| 非質數(Prime, From), | |
| New is From + 1, | |
| 質數(Prime, New, To). | |
| 質數(Prime, From, To):- | |
| New is From + 1, | |
| 質數([From | Prime], New, To). | |
| main:- | |
| 質數([17, 13, 11, 7, 5, 3, 2], 18, 399), | |
| halt. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
[397,389,383,379,373,367,359,353,349,347,337,331,317,313,311,307,293,283,281,277,271,269,263,257,251,241,239,233,229,227,223,211,199,197,193,191,181,179,173,167,163,157,151,149,139,137,131,127,113,109,107,103,101,97,89,83,79,73,71,67,61,59,53,47,43,41,37,31,29,23,19,17,13,11,7,5,3,2][Finished in 12ms]