Anonymous user
Talk:Semiprime: Difference between revisions
m
→a graphic view of the first 10k semi-primes: added a comment.
m (→a graphic view of the first 10k semi-primes: shortened a function name.) |
m (→a graphic view of the first 10k semi-primes: added a comment.) |
||
(One intermediate revision by the same user not shown) | |||
Line 24:
== a graphic view of the first 10k semi-primes ==
For those that are interested, here is the output of my '''$CALC''' (REXX) program that shows a binary map of the first 10k semiprimes.
<br><br>The command used was: (extra blanks were used to make the command's arguments easier to read)
$CALC trans{ isSemiPrime[ iota(10k) ], 'fefa'x, 10} ;;; SQUISH GRoup 100
The '''isSemiPrime''' BIF outputs a '''0''' (zero) to indicate the number isn't semi-prime, or a '''1''' (unity) to indicate a semi-prime.
Line 35 ⟶ 34:
The '''iota''' BIF generates the numbers 1 ──► 10,000 which are passed to the '''isSemiPrime''' BIF.
The '''SQUISH''' option removes all blanks from the output (except for the index).
The '''GROUP''' option groups '''100''' output items per line.
(Output is shown at <sup>'''3'''</sup>/<sub>4</sub> size.)▼
<pre style="font-size:75%"> ▼
1► · · · ■ · ■ · · ■ ■ · · · ■ ■ · · · · · ■ ■ · · ■ ■ · · · · · · ■ ■ ■ · · ■ ■ · · · · · · ■ · · ■ · ■ · · · ■ · ■ ■ · · · ■ · · ■ · · · ■ · · · · ■ · · ■ · · · · ■ · · ■ ■ ■ · · · ■ · ■ ■ ■ · · · · ·▼
101► · · · · · ■ · · · · ■ · · · ■ · · ■ ■ · ■ ■ ■ · · · · · ■ · · · ■ ■ · · · · · · ■ ■ ■ · ■ ■ · · · · · · · · ■ · · ■ ■ · ■ · · · · ■ · · ■ · · · · · · · ■ ■ · · · · ■ · ■ · ■ · · · · · · ■ · · · · · ·▼
201► ■ ■ ■ · ■ ■ · · ■ · · · ■ ■ ■ · ■ ■ ■ · ■ · · · · ■ · · · · · · · · ■ · ■ · · · · · · · · · ■ · ■ · · · ■ ■ · · · · ■ · · ■ · · ■ · ■ · · · · · · ■ · · · ■ · · · · · · · · ■ · ■ · ■ · · · ■ · · ■ ■ ·▼
╔═══════════════════════════════════════════════╗
301► ■ ■ ■ · ■ · · · ■ · · · · ■ · · · · ■ · ■ · ■ · · ■ ■ · ■ · · · · ■ ■ · · · ■ · ■ · · · · ■ · · · · · · · · ■ · · ■ · · ■ ■ · · ■ · · · · · ■ · · · · · ■ · · · ■ ■ · · · ■ · · · · ■ · ■ ■ ■ · · ■ · ·▼
║ trans{ isSemiPrime[ iota(10k) ], 'fefa'x, 10} ║
401► · · ■ · · · ■ · · · ■ · ■ · ■ · ■ · · · · ■ · · · · ■ · · · · · · · · · ■ · · · · · · · ■ ■ ■ · · · ■ · ■ ■ · · · ■ · · · · · · · ■ · · ■ · ■ · ■ · · · · ■ · · ■ ■ · · ■ · · · ■ · · · ■ · · · ■ · · ·▼
╚═══════════════════════════════════════════════╝
501► ■ ■ · · ■ · · · · · ■ · · ■ ■ · ■ · ■ · · · · · · ■ ■ · ■ · · · ■ · ■ · ■ ■ · · · ■ ■ · ■ · · · · · ■ · ■ ■ · · · · ■ · · ■ · · ■ ■ · · · · · · ■ · · · · · ■ · ■ · ■ · · ■ · · ■ · ■ · · · · · ■ · · ·▼
▲
▲ 9501►
▲
▲
▲
▲
</pre>
|