DHd2016.XQuery

MainArtists.xq

xquery version "3.0";

let $url := xs:anyURI('https://www.conftool.pro/dhd2016/sessions.php'),
    $persist:= false(),
    $request-headers := (),
    $node as node() := httpclient:get($url, $persist, $request-headers)//httpclient:body/*,

    $origList := tokenize( 
                    string-join(
                        $node//*[contains(@class, 'paper_author')]/
                            string-join(
                                replace(., '\d', '')
                            )
                    , ',')
                , ',')
return 
    for $i in distinct-values($origList)
    where count( $origList[. = $i] ) eq 4
    return
        $i

MainOrgs.xq

xquery version "3.0";

let $url := xs:anyURI('https://www.conftool.pro/dhd2016/sessions.php'),
    $persist:= false(),
    $request-headers := (),
    $node as node() := httpclient:get($url, $persist, $request-headers)//httpclient:body/*,

    $origList := tokenize( 
                    string-join(
                        $node//*[contains(@class, 'paper_organisation')]/
                            string-join(
                                replace(., '\d|:|Germany|Schweiz|Deutschland|Österreich', '')
                            )
                    , ',')
                , ',')
return 
    for $i in distinct-values($origList)
    where count( $origList[. = $i] ) eq 5
    return
        $i

MostFrequentRoom.xq

xquery version "3.0";

let $url := xs:anyURI('https://www.conftool.pro/dhd2016/sessions.php'),
    $persist:= false(),
    $request-headers := (),
    $node as node() := httpclient:get($url, $persist, $request-headers)//httpclient:body/*,

    $origList := $node//span[starts-with(., 'Ort:')]/following::*[1]/text()
return
    
    for $i in distinct-values($origList)
    where count( $origList[. = $i] ) gt 6
    return 
        $i || ': ' || count( $origList[. = $i] )

MostFrequentWords.xq

xquery version "3.0";

let $url := xs:anyURI('https://www.conftool.pro/dhd2016/sessions.php'),
    $persist:= false(),
    $request-headers := (),
    $node as node() := httpclient:get($url, $persist, $request-headers)//httpclient:body/*,

    $origList := tokenize(
                        lower-case(
                            replace(
                             string-join(
                                    $node//text()
                                )
                            , '\.|,|:|\(|\)|<|>|!|/|-|;|#|=|\}|\{|\-', '')
                        )
                    , ' ')
return
    for $i in distinct-values($origList)[. != ''][. != ' ']
    let $test := count( $origList[. = $i] )
    where $test gt 10
    return
        $i || ': ' || $test