Skip to content

Commit e9de327

Browse files
committed
Un-reflows to put L links in the same line
1 parent 4c75cd9 commit e9de327

File tree

4 files changed

+12
-22
lines changed

4 files changed

+12
-22
lines changed

doc/Language/iterating.pod6

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -115,8 +115,7 @@ side effect of running a loop, but also creating a list that is output.
115115
This can be done more systematically through the use of the L<C<gather/take>
116116
blocks|/syntax/gather take>, which are a different kind of iterating construct
117117
that instead of running in sink context, returns an item every iteration. This
118-
<Advent Calendar
119-
tutorial|https://perl6advent.wordpress.com/2009/12/23/day-23-lazy-fruits-from-the-gather-of-eden/>
118+
L<Advent Calendar tutorial|https://perl6advent.wordpress.com/2009/12/23/day-23-lazy-fruits-from-the-gather-of-eden/>
120119
explains use cases for this kind of loops; in fact, gather is not so much a
121120
looping construct, but a statement prefix that collects the items produced by
122121
C<take> and creates a list out of them.

doc/Language/math.pod6

Lines changed: 8 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -7,8 +7,9 @@
77
=head1 Sets.
88
99
Perl 6 includes the L<Set> data type, as well as support for L<most set
10-
operations|/language/setbagmix#Set/Bag_Operators>. L<Union and
11-
intersection|https://en.wikipedia.org/wiki/Algebra_of_sets> are not only native
10+
operations|/language/setbagmix#Set/Bag_Operators>.
11+
L<Union and intersection|https://en.wikipedia.org/wiki/Algebra_of_sets>
12+
are not only native
1213
operations, they use their I<natural> symbols, ∩ and ∪. For instance, this code
1314
would check the fundamental laws of the arithmetic of sets for a limited number
1415
of sets:
@@ -50,13 +51,11 @@ say "Identity with ∅ ", so @id-empty.all; # OUTPUT: «Identity with ∅
5051
5152
In this code, which uses the L<empty set|/language/setbagmix#term_%E2%88%85>
5253
which is already defined by Perl 6, not only we check if the equalities in the
53-
algebra of sets hold, we also use, via L<sigilless
54-
variables|/language/variables#index-entry-\_(sigilless_variables)> and the
54+
algebra of sets hold, we also use, via L<sigilless variables|/language/variables#index-entry-\_(sigilless_variables)> and the
5555
Unicode form of the set operators, expressions that are as close as possible to
5656
the original form; C<A ∪ U === U>, for example, except for the use of the
5757
L<value identity operator <===>|/routine/===> is very close to the actual
58-
mathematical expression in the L<Wikipedia
59-
entry|https://en.wikipedia.org/wiki/Algebra_of_sets>.
58+
mathematical expression in the L<Wikipedia entry|https://en.wikipedia.org/wiki/Algebra_of_sets>.
6059
6160
We can even test de Morgan's law, as in the code below:
6261
@@ -84,9 +83,7 @@ mathematical notation.
8483
=head1 Arithmetic.
8584
8685
Perl 6 can do arithmetic using different data types. L<Num>, L<Rat> and
87-
L<Complex> can all operate as a L<field under the operations addition,
88-
subtraction, multiplication and
89-
division|https://en.wikipedia.org/wiki/Field_(mathematics)>. The equivalent
86+
L<Complex> can all operate as a L<field under the operations addition, subtraction, multiplication and division|https://en.wikipedia.org/wiki/Field_(mathematics)>. The equivalent
9087
mathematical fields are:
9188
9289
=begin table
@@ -99,8 +96,8 @@ C<Complex> ℂ
9996
10097
The C<Int>s, although technically corresponding to Z, is not really a
10198
mathematical field since they are not closed under the four arithmetical
102-
operations, and integers do not satisfy the L<identity
103-
axiom|https://math.stackexchange.com/questions/2192317/set-of-integers-not-a-field/2192330>.
99+
operations, and integers do not satisfy the
100+
L<identity axiom|https://math.stackexchange.com/questions/2192317/set-of-integers-not-a-field/2192330>.
104101
However, if the integer division C<div> is used, their operations will always
105102
yield other integers; if C</> is used, however, in general the result will be a
106103
L<Rat>.

doc/Language/structures.pod6

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -285,8 +285,7 @@ this particular role is mixed in; in this case it will contain the hash it is
285285
mixed in with; it will contain something else (and possibly work some other way)
286286
in other case. This role will provide the C<last> method to any variable it's
287287
mixed with, providing new, attachable, functionalities to I<regular> variables.
288-
Roles can even be L<added to existing variables using the C<does>
289-
keyword|/language/objects#Mixins_of_Roles>.
288+
Roles can even be L<added to existing variables using the C<does> keyword|/language/objects#Mixins_of_Roles>.
290289
291290
L<Subsets|/language/typesystem#subset> can also be used to constrain the
292291
possible values a variable might hold; they are Perl 6 attempt at
@@ -466,10 +465,9 @@ In this case we are using the I<syntactic sugar> for C<HOW.method>, C<^method>,
466465
to check if your data structure responds to that method; the output, which shows
467466
the name of the methods that match, certifies that we can use it.
468467
469-
See also L<this article on class
470-
introspection|https://perl6advent.wordpress.com/2015/12/19/day-19-introspection/>
468+
See also L<this article on class introspection|https://perl6advent.wordpress.com/2015/12/19/day-19-introspection/>
471469
on how to access class properties and methods, and use it to generate test data
472-
for a class; this L<Advent Calendar article describes the meta-object protocol>
470+
for a class; this L<Advent Calendar article describes the meta-object protocol|https://perl6advent.wordpress.com/2010/12/22/day-22-the-meta-object-protocol/>
473471
extensively.
474472
475473

xt/links-not-links.t

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -39,10 +39,6 @@ END
3939
my @number-of-links = ( $link ~~ m:g{\| https?\: } );
4040
my $html = pod2html(EVAL($pod~ "\n\$=pod"));
4141
my @number-of-hrefs = ( $html ~~ m:g{a\s+href\= } );
42-
if +@number-of-links > +@number-of-hrefs {
43-
say @number-of-links;
44-
say @number-of-hrefs;
45-
}
4642
push @links-not-links, $link if +@number-of-links > +@number-of-hrefs;
4743
}
4844
if @links-not-links {

0 commit comments

Comments
 (0)