Triplet of three numbers: Difference between revisions

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

edits