{ $description "Applies the relation to successive pairs of elements in the sequence, testing for a truth value. The relation should be a transitive relation, such as a total order or an equality relation." }
{ $examples
"Testing if a sequence is non-decreasing:"
- { $example "USING: math prettyprint sequences ;" "{ 1 1 2 } [ <= ] monotonic? ." "t" }
+ { $example "USING: grouping math prettyprint ;" "{ 1 1 2 } [ <= ] monotonic? ." "t" }
"Testing if a sequence is decreasing:"
- { $example "USING: math prettyprint sequences ;" "{ 9 8 6 7 } [ < ] monotonic? ." "f" }
+ { $example "USING: grouping math prettyprint ;" "{ 9 8 6 7 } [ < ] monotonic? ." "f" }
} ;
HELP: all-equal?
[ contains-funky-elements? ]
bi* or
] [
- [ effect-values >array ]
- [ extract-values >array ]
- bi* =
+ [ effect-values ]
+ [ extract-values ]
+ bi* sequence=
]
} 2|| [ "$values don't match stack effect" throw ] unless ;
} ;
HELP: <inet>
-{ $values { "host" "a host name" } { "port" "a port number" } }
+{ $values { "host" "a host name" } { "port" "a port number" } { "inet" inet } }
{ $description "Creates a new " { $link inet } " address specifier." } ;
HELP: inet4
} ;
HELP: <inet4>
-{ $values { "host" "an IPv4 address" } { "port" "a port number" } }
+{ $values { "host" "an IPv4 address" } { "port" "a port number" } { "inet4" inet4 } }
{ $description "Creates a new " { $link inet4 } " address specifier." } ;
HELP: inet6
} ;
HELP: <inet6>
-{ $values { "host" "an IPv6 address" } { "port" "a port number" } }
+{ $values { "host" "an IPv6 address" } { "port" "a port number" } { "inet6" inet6 } }
{ $description "Creates a new " { $link inet6 } " address specifier." } ;
HELP: <client>