Farey sequence: Difference between revisions
Content deleted Content added
Added Algol 68 |
m →{{header|ALGOL 68}}: Typo |
||
| Line 132: | Line 132: | ||
result[ 1 : length ] |
result[ 1 : length ] |
||
FI # farey sequence # ; |
FI # farey sequence # ; |
||
# returns the length of the Farey |
# returns the length of the Farey Sequence of length n # |
||
PROC farey sequence length = ( INT n )INT: |
PROC farey sequence length = ( INT n )INT: |
||
IF n < 1 THEN 0 |
IF n < 1 THEN 0 |
||