query.system.rq Maven / Gradle / Ivy

Go to download
select 
where {}
export {

function xt:div(?a, ?b) {  xsd:integer(floor(?a / ?b)) }

function xt:mod(?a, ?b) {  xsd:integer(?a - (?b * xt:div(?a, ?b))) }

function xt:compare(?x, ?y) { 
  if (?x < ?y, -1, 
  if (?x = ?y, 0, 1)) }

function kg:compare(?x, ?y) { 
  if (?x < ?y, -1, 
  if (?x = ?y, 0, 1)) }

function xt:prime(?x) { 
    if (?x = 1, false,
    if (?x = 2, true, 
    ! mapany (xt:divisible, ?x, xt:cons(2, xt:iota(3, power(?x, 0.5), 2)))))
 }
                             
function xt:divisible(?x, ?n) { 
   (xt:mod(?x, ?n) = 0)
}

}