설명

이 예는 WHILE 문을 사용하여 소수 집합을 찾는 방법을 보여줍니다.

소형 모델 유형 :슬롯 사이트

카테고리 : 슬롯 사이트 모델 라이브러리

메인 파일 : prime.gms

$title 소수 생성(PRIME,SEQ=157)

$onText
이 예에서는 WHILE 문을 사용하여 소수 집합을 찾는 방법을 보여줍니다.

슬롯 사이트 Development Corporation, 공식화 및 언어 예제.

키워드: 슬롯 사이트 공식화 및 언어 예제, 소수 생성, 수학
$offText

$eolCom //

세트
   s '소수의 집합' / 1*200 /
   ss(s) '지금까지 발견된 소수';

스칼라
   더 많은 '임시 플래그'
   후보 '주요 후보';

매개변수 ps(s) '첫 번째 s 소수';

ps(들) = 0;       // 소수 배열 지우기
ss(들) = 아니요;      // 찾은 소수를 비워 둡니다.

후보 = 3;   // 시작하려면 소수를 설정하세요.

루프(들,
   더 = 1;                             // 검색을 켠다
   while(more, // 찾을 때까지 검색
      loop(ss, // 아직 후보인지 테스트합니다.
         break$(sqr(ps(ss)) > Candidate);// 충분히 큰 소인수를 확인하면 루프를 종료합니다.
         more = mod(후보,ps(ss));   // 소수에는 나머지가 있어야 합니다.
         break$(그 이상은 아님);               // 나머지 0이 있는 제수를 찾으면 루프를 종료합니다.
      );
      if(more, // 하나 얻었는지 확인
         ss(들) = 예;                    // 발견된 소수의 범프 세트
         ps(s) = 후보;              // 소수 저장
      );
      더 = 더 이상;                   // 검색 플래그를 뒤집습니다.
      후보 = 후보 + 2;         // 다음 후보는 홀수여야 합니다
   );
);
ps를 표시;