Primality by Wilson's theorem: Difference between revisions
→{{header|Polyglot:PL/I and PL/M}}: Minor simplification
(→{{header|PL/I}}: Fixed "see also") |
(→{{header|Polyglot:PL/I and PL/M}}: Minor simplification) |
||
Line 1,396:
/* CP/M BDOS SYSTEM CALL AND CONSOLE OUTPUT ROUTINES, ETC. */ /*
DECLARE BINARY LITERALLY 'ADDRESS', CHARACTER LITERALLY 'BYTE';
DECLARE PUT LITERALLY '/*',
BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END /* */;
PRCHAR: PROCEDURE( C ); DECLARE C CHARACTER; PUT edit(c)(a(1)) /* */ /*
Line 1,415:
CALL BDOS( 9, .N$STR( W ) ) /* */;
END PRNUMBER;
( A MOD B ) /* */;▼
/* TASK */
DECLARE N BINARY;
ISWILSONPRIME: PROCEDURE( N )
DECLARE N BINARY;
DECLARE ( FMODP, I ) BINARY;
FMODP = 1;
DO I = 2 TO N - 1;
FMODP =
MOD /* */ N
);
END;
RETURN ( FMODP = N - 1 );
| |||