aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

87
Task/Generator-Exponential/REXX/generator-exponential.rexx
View file

@ -1,47 +1,40 @@
/*REXX program to show how to use a generator (also known as iterators).*/
numeric digits 10000 /*just in case we need big 'uns. */
parse arg show; show = word(show 0, 1) /*show this many.*/
@gen.= /*generators start from scratch. */
do j=1 to show; call tell 'squares' ,gen_squares(j) ; end
do j=1 to show; call tell 'cubes' ,gen_cubes(j) ; end
do j=1 to show; call tell 'sq¬cubes',gen_sqNcubes(j) ; end
if show>0 then say 'dropping 1st ──► 20th values.'
do j=1 to 20; drop @gen.sqNcubes.j ; end
do j=20+1 for 10 ; call tell 'sq¬cubes',gen_sqNcubes(j) ; end
exit /*stick a fork in it, we're done.*/
/*─────────────────────────────────────gen_powers iterator──────────────*/
gen_powers: procedure expose @gen.; parse arg x,p; if x=='' then return
if @gen.powers.x.p=='' then @gen.powers.x.p=x**p; return @gen.powers.x.p
/*─────────────────────────────────────gen_squares iterator─────────────*/
gen_squares: procedure expose @gen.; parse arg x; if x=='' then return
if @gen.squares.x=='' then do; call gen_powers x,2
@gen.squares.x=@gen.powers.x.2
end
return @gen.squares.x
/*─────────────────────────────────────gen_cubes iterator───────────────*/
gen_cubes: procedure expose @gen.; parse arg x; if x=='' then return
if @gen.cubes.j=='' then do; call gen_powers x,3
@gen.cubes.x=@gen.powers.x.3
end
return @gen.cubes.x
/*─────────────────────────────────────gen_squares not cubes iterator───*/
gen_sqNcubes: procedure expose @gen.; parse arg x; if x=='' then return
s=0
if @gen.sqNcubes.x=='' then do j=1 to x
if @gen.sqNcubes\=='' then do; sq=sq+1
iterate
end
do s=s+1 /*slow way to weed out cubes*/
?=gen_squares(s)
do c=1 until gen_cubes(c)>?
if gen_cubes(c)==? then iterate s
end /*c*/
leave
end /*s*/
@gen.sqNcubes.x=?
@gen.sqNcubes.x=@gen.squares.s
end /*j*/
return @gen.sqNcubes.x
/*──────────────────────────────────TELL subroutine─────────────────────*/
tell: if j==1 then say /* [↓] format args to be aligned.*/
say right(arg(1),20) right(j,5) right(arg(2),20); return
/*REXX program demonstrates how to use a generator (also known as iterators).*/
parse arg N .; if N=='' then N=20 /*N not specified? Then use default.*/
@.= /* [↓] calculate squares,cubes,pureSq.*/
do j=1 for N; call Gsquare j
call Gcube j
call GpureSquare j /*these are cube─free squares.*/
end /*j*/
do k=1 for N; @.pureSquare.k=; end /*k*/ /*dropping 1st N values.*/
w=length(N+10); ps='pure square' /*width of the numbers. */
do m=N+1 for 10; say ps right(m, w)":" right(GpureSquare(m), 3*w)
end /*m*/
exit /*stick a fork in it, we're all done. */
/*────────────────────────────────────────────────────────────────────────────*/
Gpower: procedure expose @.; parse arg x,p; q=@.pow.x.p
if q\=='' then return q; _=x**p
if pos(.,_)\==0 then do
parse var _ 'E' e; numeric digits e+5; _=x**p
end /* [↑] re─calculate with more digits.*/
@.pow.x.p=_
return _
/*────────────────────────────────────────────────────────────────────────────*/
Gsquare: procedure expose @.; parse arg x; q=@.square.x
if q=='' then @.square.x=Gpower(x,2)
return @.square.x
/*────────────────────────────────────────────────────────────────────────────*/
Gcube: procedure expose @.; parse arg x; q=@.cube.x
if q=='' then @.cube.x=Gpower(x,3); _=@.cube.x; @.3pow._=1
return @.cube.x
/*────────────────────────────────────────────────────────────────────────────*/
GpureSquare: procedure expose @.; parse arg x; q=@.pureSquare.x
if q\=='' then return q
#=0
do j=1 until #==x; ?=Gpower(j,2) /*search for pure square*/
if @.3pow.?==1 then iterate /*is it a power of 3 ? */
#=#+1; @.pureSquare.#=? /*assign next pureSquare*/
end /*j*/
return @.pureSquare.x