Multi-base primes: Difference between revisions
Content added Content deleted
m (added the Prime Numbers category.) |
m (→{{header|REXX}}: shortened the RLE2DEC function, changed a comment.) |
||
Line 1,319: | Line 1,319: | ||
do j=1 for # /*only use primes that are within range*/ |
do j=1 for # /*only use primes that are within range*/ |
||
do b=36 by -1 for 35; n= base(@.j, b) /*use different bases for each prime. */ |
do b=36 by -1 for 35; n= base(@.j, b) /*use different bases for each prime. */ |
||
L= length(n); if L>widths then iterate /*obtain length; |
L= length(n); if L>widths then iterate /*obtain length; Length too big? Skip.*/ |
||
if L==1 then $.L.n= b $.L.n /*Length = unity? Prepend the base.*/ |
if L==1 then $.L.n= b $.L.n /*Length = unity? Prepend the base.*/ |
||
else $.L.n= $.L.n b /* " ¬= " Append " " */ |
else $.L.n= $.L.n b /* " ¬= " Append " " */ |