Just another update
This commit is contained in:
Ingy döt Net
parent
a25938f123
commit
00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
|
|
@ -1,18 +1,16 @@
|
|||
/*REXX pgm converts any integer (or a range) to a van der Corput number in base 2*/
|
||||
/*convert any integer (or a range) to a van der Corput number in base 2*/
|
||||
|
||||
/*REXX pgm converts an integer (or a range)──►van der Corput # in base 2*/
|
||||
numeric digits 1000 /*handle anything the user wants.*/
|
||||
parse arg a b . /*obtain the number(s) [maybe]. */
|
||||
if a=='' then do; a=0; b=10; end /*if none specified, use defaults*/
|
||||
if b=='' then b=a /*assume a "range" of a single #.*/
|
||||
if a=='' then do; a=0; b=10; end /*if none specified, use defaults*/
|
||||
if b=='' then b=a /*assume a "range" of a single #.*/
|
||||
|
||||
do j=a to b /*traipse through the range. */
|
||||
_=vdC(abs(j)) /*convert abs value of integer. */
|
||||
leading=substr('-',2+sign(j)) /*if needed, leading minus sign. */
|
||||
do j=a to b /*traipse through the range. */
|
||||
_=vdC(abs(j)) /*convert ABS value of integer.*/
|
||||
leading=substr('-',2+sign(j)) /*if needed, elide leading sign.*/
|
||||
say leading || _ /*show number (with leading - ?)*/
|
||||
end /*j*/
|
||||
exit /*stick a fork in it, we're done.*/
|
||||
/*──────────────────────────────────VDC [van der Corput] subroutine─────*/
|
||||
vdC: procedure; y=x2b(d2x(arg(1))) /*convert to hex, then binary. */
|
||||
if y=0 then return 0 /*zero has been converted to 0000*/
|
||||
else return '.'reverse(strip(y,"L",0)) /*heavy lifting by REXX*/
|
||||
vdC: procedure; y=x2b(d2x(arg(1)))+0 /*convert to hex, then binary. */
|
||||
if y==0 then return 0 /*handle special case of zero. */
|
||||
else return '.'reverse(y) /*heavy lifting by REXX*/
|
||||
|
|
|
|||
|
|
@ -1,28 +1,23 @@
|
|||
/*REXX pgm converts any integer (or a range) to a van der Corput number in base 2,*/
|
||||
/* or optionaly, any other base up to base 90. */
|
||||
/*If the base is negative, the output is shown as a list. */
|
||||
|
||||
/*REXX pgm converts an integer (or a range) ──► van der Corput number */
|
||||
/*in base 2, or optionally, any other base up to and including base 90.*/
|
||||
numeric digits 1000 /*handle anything the user wants.*/
|
||||
parse arg a b r . /*obtain the number(s) [maybe]. */
|
||||
if a=='' then do; a=0; b=10; end /*if none specified, use defaults*/
|
||||
if b=='' then b=a /*assume a "range" of a single #.*/
|
||||
if r=='' then r=2 /*assume a radix (base) of 2. */
|
||||
if a=='' then do; a=0; b=10; end /*if none specified, use defaults*/
|
||||
if b=='' then b=a /*assume a "range" of a single #.*/
|
||||
if r=='' then r=2 /*assume a radix (base) of 2. */
|
||||
z= /*placeholder for a list of nums.*/
|
||||
|
||||
do j=a to b /*traipse through the range. */
|
||||
_=vdC(abs(j),abs(r)) /*convert abs value of integer. */
|
||||
_=substr('-',2+sign(j))_ /*if needed, leading minus sign. */
|
||||
if r>0 then say _ /*if positive base, just show it.*/
|
||||
else z=z _ /* ... else build a list. */
|
||||
do j=a to b /*traipse through the range. */
|
||||
_=vdC(abs(j), abs(r)) /*convert ABS value of integer.*/
|
||||
_=substr('-', 2+sign(j))_ /*if needed, keep leading - sign.*/
|
||||
if r>0 then say _ /*if positive base, just show it.*/
|
||||
else z=z _ /* ··· else build a list· */
|
||||
end /*j*/
|
||||
|
||||
if z\=='' then say strip(z) /*if list wanted, then show it. */
|
||||
if z\=='' then say strip(z) /*if list wanted, then show it. */
|
||||
exit /*stick a fork in it, we're done.*/
|
||||
/*──────────────────────────────────VDC [van der Corput] subroutine─────*/
|
||||
vdC: return '.'reverse(base(arg(1),arg(2))) /*convert, reverse, append.*/
|
||||
/*──────────────────────────────────BASE subroutine (up to base 90)─────*/
|
||||
base: procedure; parse arg x,toB,inB /*get a number, toBase, inBase */
|
||||
|
||||
/*┌────────────────────────────────────────────────────────────────────┐
|
||||
┌─┘ Input to this subroutine (all must be positive whole numbers): └─┐
|
||||
│ │
|
||||
|
|
@ -33,32 +28,29 @@ base: procedure; parse arg x,toB,inB /*get a number, toBase, inBase */
|
|||
│ toBase or inBase can be omitted which causes the default of │
|
||||
└─┐ 10 to be used. The limits of both are: 2 ──► 90. ┌─┘
|
||||
└────────────────────────────────────────────────────────────────────┘*/
|
||||
|
||||
@abc='abcdefghijklmnopqrstuvwxyz' /*random characters, sorted. */
|
||||
@abcU=@abc; upper @abcU /*go whole hog and extend 'em. */
|
||||
@@@=0123456789||@abc||@abcU /*prefix 'em with numeric digits.*/
|
||||
@@@=@@@'<>[]{}()?~!@#$%^&*_+-=|\/;:~' /*add some special chars as well.*/
|
||||
@abc='abcdefghijklmnopqrstuvwxyz' /*Latin lowercase alphabet chars.*/
|
||||
@abcU=@abc; upper @abcU /*go whole hog and extend chars. */
|
||||
@@@=0123456789 || @abc || @abcU /*prefix 'em with numeric digits.*/
|
||||
@@@=@@@'<>[]{}()?~!@#$%^&*_+-=|\/;:~' /*add some special chars as well,*/
|
||||
/*spec. chars should be viewable.*/
|
||||
numeric digits 1000 /*what the hey, support biggies. */
|
||||
maxB=length(@@@) /*max base (radix) supported here*/
|
||||
parse arg x,toB,inB /*get a number, toBase, inBase */
|
||||
if toB=='' then toB=10 /*if skipped, assume default (10)*/
|
||||
if inB=='' then inB=10 /* " " " " " */
|
||||
|
||||
if toB=='' then toB=10 /*if skipped, assume default (10)*/
|
||||
if inB=='' then inB=10 /* " " " " " */
|
||||
/*══════════════════════════════════convert X from base inB ──► base 10.*/
|
||||
#=0
|
||||
do j=1 for length(x)
|
||||
_=substr(x,j,1) /*pick off a "digit" from X. */
|
||||
v=pos(_,@@@) /*get the value of this "digits".*/
|
||||
if v==0 |v>inB then call erd x,j,inB /*illegal "digit"? */
|
||||
#=#*inB+v-1 /*construct new num, dig by dig. */
|
||||
end /*j*/
|
||||
|
||||
#=0; do j=1 for length(x)
|
||||
_=substr(x,j,1) /*pick off a "digit" from X. */
|
||||
v=pos(_,@@@) /*get the value of this "digits".*/
|
||||
if v==0 | v>inB then call erd x,j,inB /*illegal "digit" ? */
|
||||
#=#*inB + v - 1 /*construct new num, dig by dig. */
|
||||
end /*j*/
|
||||
/*══════════════════════════════════convert # from base 10 ──► base toB.*/
|
||||
y=
|
||||
do while #>=toB /*deconstruct the new number (#).*/
|
||||
y=substr(@@@,(#//toB)+1,1)y /*construnct the output number. */
|
||||
#=#%toB /*... and whittle # down also. */
|
||||
end /*while*/
|
||||
y=; do while #>=toB /*deconstruct the new number (#).*/
|
||||
y=substr(@@@,(#//toB)+1,1)y /* construct the output number. */
|
||||
#=# % toB /*··· and whittle # down also. */
|
||||
end /*while*/
|
||||
|
||||
return substr(@@@,#+1,1)y
|
||||
/*──────────────────────────────────VDC [van der Corput] subroutine─────*/
|
||||
vdC: return '.'reverse(base(arg(1),arg(2))) /*convert, reverse, append.*/
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue