Triplet of three numbers: Difference between revisions

Content added Content deleted
(Added Quackery.)
Line 20: Line 20:
OP TOSTRING = ( INT n )STRING: whole( n, 0 );
OP TOSTRING = ( INT n )STRING: whole( n, 0 );
# look for suitable numbers #
# look for suitable numbers #
# 2 is clearly not a member of the resuired numbers, so we start at 3 #
# 2 is clearly not a member of the required numbers, so we start at 3 #
INT n count := 0;
INT n count := 0;
FOR n FROM 3 TO max number - 5 DO
FOR n FROM 3 TO max number - 5 DO
Line 47: Line 47:
Found 46 triplets
Found 46 triplets
</pre>
</pre>

=={{header|AWK}}==
=={{header|AWK}}==
<lang AWK>
<lang AWK>