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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/List-comprehensions/REXX/list-comprehensions-1.rexx
View file

@ -1,17 +1,17 @@
/*REXX program displays a vertical list of Pythagorean triples up to a specified number.*/
parse arg n . /*get the optional argument from the CL*/
parse arg n . /*obtain optional argument from the CL.*/
if n=='' | n=="," then n=100 /*Not specified? Then use the default.*/
say 'Pythagorean triples (a² + b² = c², c ≤' n"):" /*display the list's title. */
$= /*assign a null to the triples list. */
do a=1 for n-2; aa=a*a /*Note: A*A is faster than A**2, but */
do b=a+1 to n-1; aabb=aa+b*b /* ··· but not by much.*/
do c=b+1 to n
if aabb==c*c then $=$ '{'a"," || b','c"}"
end /*c*/
end /*b*/
end /*a*/
do a=1 for n-2; aa=a*a /*Note: A*A is faster than A**2, but */
do b=a+1 to n-1; aabb=aa + b*b /* ··· not by much.*/
do c=b+1 to n
if aabb==c*c then $=$ '{'a"," || b','c"}"
end /*c*/
end /*b*/
end /*a*/
#=words($)
do j=1 for #
say left('', 20) word($, j) /*display a member of the list, */
end /*j*/ /* [↑] list the members vertically. */
do j=1 for #
say left('', 20) word($, j) /*display a member of the list, */
end /*j*/ /* [↑] list the members vertically. */
say # 'members listed.' /*stick a fork in it, we're all done. */

18
Task/List-comprehensions/REXX/list-comprehensions-2.rexx
View file

@ -3,13 +3,13 @@ parse arg n . /*get the optional argument fro
if n=='' | n=="," then n=100 /*Not specified? Then use the default.*/
say 'Pythagorean triples (a² + b² = c², c ≤' n"):" /*display the list's title. */
$= /*assign a null to the triples list. */
do a=1 for n-2; aa=a*a /*Note: A*A is faster than A**2, but */
do b=a+1 to n-1; aabb=aa+b*b /* ··· but not by much.*/
do c=b+1 to n
if aabb==c*c then $=$ '{'a"," || b','c"}"
end /*c*/
end /*b*/
end /*a*/ /*stick a fork in it, we're all done. */
do a=1 for n-2; aa=a*a /*Note: A*A is faster than A**2, but */
do b=a+1 to n-1; aabb=aa + b*b /* ··· not by much.*/
do c=b+1 to n
if aabb==c*c then $=$ '{'a"," || b','c"}"
end /*c*/
end /*b*/
end /*a*/ /*stick a fork in it, we're all done. */
#=words($) /*number of members in the list. */
say; say strip($) /*show the Pythagorean triples to term.*/
say; say # 'members listed.' /*triples are listed in order of 1st #.*/
say; say strip($) /*show the Pythagorean triples to term.*/
say; say # 'members listed.' /*triples are listed in order of 1st #.*/