List comprehensions: Difference between revisions
Content deleted Content added
→{{header|AppleScript}}: Removed two unused generic functions |
m →{{header|REXX}}: changed some comments, added/changed whitespace. |
||
Line 1,717: | Line 1,717: | ||
===vertical list=== |
===vertical list=== |
||
<lang rexx>/*REXX program displays a vertical list of Pythagorean triples up to a specified number.*/ |
<lang rexx>/*REXX program displays a vertical list of Pythagorean triples up to a specified number.*/ |
||
parse arg n . /* |
parse arg n . /*obtain optional argument from the CL.*/ |
||
if n=='' | n=="," then n=100 /*Not specified? Then use the default.*/ |
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. */ |
say 'Pythagorean triples (a² + b² = c², c ≤' n"):" /*display the list's title. */ |
||
$= /*assign a null to the triples list. */ |
$= /*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 /* ··· not by much.*/ |
|||
do c=b+1 to n |
|||
if aabb==c*c then $=$ '{'a"," || b','c"}" |
|||
end /*c*/ |
|||
end /*b*/ |
|||
end /*a*/ |
|||
#=words($) |
#=words($) |
||
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. */</lang> |
say # 'members listed.' /*stick a fork in it, we're all done. */</lang> |
||
{{out|output|text= when using the default input:}} |
{{out|output|text= when using the default input:}} |
||
Line 1,797: | Line 1,797: | ||
say 'Pythagorean triples (a² + b² = c², c ≤' n"):" /*display the list's title. */ |
say 'Pythagorean triples (a² + b² = c², c ≤' n"):" /*display the list's title. */ |
||
$= /*assign a null to the triples list. */ |
$= /*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 /* ··· 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. */ |
#=words($) /*number of members in the list. */ |
||
say; |
say; say strip($) /*show the Pythagorean triples to term.*/ |
||
say; |
say; say # 'members listed.' /*triples are listed in order of 1st #.*/</lang> |
||
{{out|output|text= when using the following input: <tt> 35 </tt>}} |
{{out|output|text= when using the following input: <tt> 35 </tt>}} |
||
<pre> |
<pre> |