line-o

xquery version "3.1";

declare namespace dicey="http://line-o.de/ns/dicey";

declare function dicey:sequence ($n as xs:integer,
        $generator as map(xs:string, item())) as item()* {
    fold-left(
        1 to $n,
        map { "sequence": (), "generator": $generator},
        dicey:reducer#2

line-o

xquery version "3.1";

map {
  "date" : current-dateTime(),
  "packages" : array {
    for $get-package-event in collection("/db/apps/public-repo-data/logs")//type[.="get-package"]/..
    group by $name := $get-package-event/package-name/string()
    let $event-count := count($get-package-event) 
    order by $event-count descending
    return

ciceronianus

#toolbar-current-app {
    color:red !important;    
    background-color:yellow;
    border-radius: 5px;
    padding-left: 5px;
    padding-right: 5px;
    border: 1px solid #f1c871;
    
}

line-o

xquery version "3.1";

(: adapted from https://stackoverflow.com/a/4936099 :)
declare function local:fib-reducer ($r, $n) { $r[1] + $r[2], $r[1] };

declare function local:fib($n as xs:integer) {
    fold-left((1 to $n), (0,1), local:fib-reducer#2)[1]
};

let $results := 

apb2006

declare function local:fib($n as xs:integer, $a as xs:integer, $b as xs:integer){ 
    switch ($n)
    case 0 return $a
    case 1 return $b
   default return local:fib($n - 1, $b, $a + $b)
};

declare function local:fib($n as xs:integer){ 
  local:fib($n,0,1)
};

benibela

xquery version "3.1";

(:~ 
 : An implementation of XQuery 3.1"s fn:json-to-xml and fn:xml-to-json functions for eXist, which does not support them natively as of 4.3.0, and Xidel.
 : 
 : @author Joe Wicentowski, Benito van der Zander
 : @version 0.6
 : @see http://www.w3.org/TR/xpath-functions-31/#json 
 :)
module namespace jx = "http://joewiz.org/ns/xquery/json-xml";

jamescummings

<?xml version="1.0" encoding="UTF-8"?>
<TEI xmlns="http://www.tei-c.org/ns/1.0">
   <teiHeader>
      <fileDesc>
         <titleStmt>
            <title>TEI Minimal</title>
            <author>James Cummings</author>
         </titleStmt>
         <publicationStmt>
            <publisher>TEI Consortium</publisher>

luisenriquecorona

USE WideWorldImporters
GO
CREATE TABLE Sales.CustomerOrderSummary
(
        ID INT NOT NULL IDENTITY,
        CustomerID INT NOT NULL,
        OrderSummary XML
);
INSERT INTO Sales.CustomerOrderSummary (CustomerID,
OrderSummary)

line-o

xquery version "3.1";

import module namespace imfd='http://existsolutions.com/apps/imfd' at '/db/temp/imfd.xqm';

let $now := current-dateTime()
let $tz := timezone-from-dateTime($now)
let $imfd := imfd:format($now)
let $gmt := imfd:to-dateTime($imfd)
let $reversed := adjust-dateTime-to-timezone($gmt + $tz, $tz)

adamretter

import module namespace functx = "http://www.functx.com";

(: NOTE -- functx uses 1 to 7 to represent MON-SUN, whereas eXist-db's datetime module used 1 to 7 to represent SUN-SAT :)

declare variable $local:MON := 1;
declare variable $local:TUES := 2;
declare variable $local:WEDS := 3;
declare variable $local:THURS := 4;
declare variable $local:FRI := 5;
declare variable $local:SAT := 6;