Anonymous user
Talk:Semiprime: Difference between revisions
m
→a graphic view of the first 10k semi-primes: used the SQUISH option to produce a narrower output.
m (→a graphic view of the first 10k semi-primes: shortened a function name.) |
m (→a graphic view of the first 10k semi-primes: used the SQUISH option to produce a narrower output.) |
||
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:
$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>
|