From e2b7d5648d9785b3b92a8e07213e30a6b19b2dcb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christian=20Gr=C3=BCn?= <cg@basex.org>
Date: Thu, 16 Jan 2025 14:32:25 +0100
Subject: [PATCH] Examples revised

---
 specifications/xquery-40/src/expressions.xml | 31 ++++++++++++++++----
 1 file changed, 25 insertions(+), 6 deletions(-)

diff --git a/specifications/xquery-40/src/expressions.xml b/specifications/xquery-40/src/expressions.xml
index fa0ae7fed..7b54f83dc 100644
--- a/specifications/xquery-40/src/expressions.xml
+++ b/specifications/xquery-40/src/expressions.xml
@@ -22086,14 +22086,16 @@ raised <errorref
          <example>
             <ulist>
                <item>
-                  <p>Tokenizes a string, creates a new string from the tokens and returns
-                     <code>"a/b/c"</code>:</p>
-                  <eg role="parse-test">'a b c' -> tokenize(.) -> string-join(., '/')</eg>
+                  <p>Tokenizes a string, counts the tokens, creates a concatenated string and returns
+                     <code>count=3</code>:</p>
+                  <eg role="parse-test">'a b c' -> tokenize(.) -> count(.) -> concat('count=', .)
+</eg>
                   <p>An equivalent expression is:
                      <eg role="parse-test">
 let $string := 'a b c'
 let $tokens := tokenize($string)
-return string-join($tokens, '/')
+let $count := count($tokens)
+return concat('count=', $count)
                      </eg>
                   </p>
                </item>
@@ -22119,16 +22121,33 @@ return sum($powers)
 (1 to 4)
 -> for-each(., op('+'))
 -> for-each-pair(4 to 7, ., op('>'))
--> some(.)</eg>
+-> some(.)
+                  </eg>
                   <p>An equivalent expression is:
                      <eg role="parse-test">
-let $data := (1 to 4)
+let $data := 1 to 4
 let $data := for-each($data, op('+'))
 let $data := for-each-pair(4 to 7, $data, op('>'))
 return some($data)
                      </eg>
                   </p>
                </item>
+               <item>
+                  <p>Reduces a long sequence to at most 9 elements, with dots appended,
+                  and returns a single string.</p>
+                  <eg role="parse-test">
+$dictionary/word
+-> (if(count(.) &lt; 10) then . else (.[1 to 9], '…'))
+-> string-join(., '; ')
+                  </eg>
+                  <p>An equivalent expression is:
+                     <eg role="parse-test">
+let $words := $dictionary/word
+let $chopped := (if(count($words) &lt; 10) then $words else ($words[1 to 9], '…'))
+return string-join($chopped, '; ')
+                     </eg>
+                  </p>
+               </item>
             </ulist>
          </example>
       </div2>