query.spqrtest.rq Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of corese-core Show documentation

Corese is a Semantic Web Factory (triple store and SPARQL endpoint) implementing RDF, RDFS, SPARQL 1.1 Query and Update.

There is a newer version: 4.6.1

Show newest version

#
# Compute the romain notation of a number
# Compute the digital notation of a romain number
# Olivier Corby - Wimmics Inria I3S - 2015
#
prefix spqr: 
prefix java: 
#@compile 
select 

(9999 as ?n)


(java:romain(?n) as ?r)
(java:digit(?r)  as ?d)

where {}


@public {

function spqr:romain(?n) {  spqr:spqr(?n) }
function spqr:digit(?r)  { spqr:parse(?r) }



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

function spqr:rep(?s, ?n) { 
  if (?n = 0, "",
  if (?n = 1, ?s,
  return(concat(?s, spqr:rep(?s, ?n - 1)))))
 }

function spqr:r1(?n) { 
    spqr:num(?n, "I", "V", "X")
 }

function spqr:r10(?n) { 
  spqr:num(?n, "X", "L", "C")
 }

function spqr:r100(?n) { 
  spqr:num(?n, "C", "D", "M")
 }

function spqr:r1000(?n) { 
  spqr:rep("M", ?n)
 }

function spqr:num(?n, ?u, ?f, ?t) { 
  if (?n <= 3, return(spqr:rep(?u, ?n)),  
  if (?n = 4, return(concat(?u, ?f)),
  if (?n < 9, return(concat(?f, spqr:rep(?u, ?n - 5))), 
  if (?n = 9, return(concat(?u, ?t)), ""))))
 }

function spqr:spqr(?n) { 
  if (?n < 10, return(spqr:r1(?n)),
  if (?n < 100, 
    let (?c = spqr:div(?n, 10), 
         ?r = spqr:mod(?n, 10)){ 
      return(concat(spqr:r10(?c), spqr:spqr(?r)))
    },
    
  if (?n < 1000,
    let (?c = spqr:div(?n, 100),
         ?r = spqr:mod(?n, 100)){
      return(concat(spqr:r100(?c), spqr:spqr(?r)))
    },
    
  if (?n < 10000,
    let (?c = spqr:div(?n, 1000),
         ?r = spqr:mod(?n, 1000)){
      return(concat(spqr:r1000(?c), spqr:spqr(?r)))
    },       
    return(?n)))))
}

# parse romain number

function spqr:parse(?s) { 
  if (strlen(?s) = 0, return(0),
    let (?f = substr(?s, 1, 1)){
      if (?f = "I", return(spqr:step(?s, "I", "V", "X", 1, 5, 10)),
      if (?f = "V", return(5 + spqr:parse(substr(?s, 2))),
      if (?f = "X", return(spqr:step(?s, "X", "L", "C", 10, 50, 100)),
      if (?f = "L", return(50 + spqr:parse(substr(?s, 2))),
      if (?f = "C", return(spqr:step(?s, "C", "D", "M", 100, 500, 1000)),
      if (?f = "D", return(500   + spqr:parse(substr(?s, 2))),
      if (?f = "M", return(1000  + spqr:parse(substr(?s, 2))),
      return(0))))))))
      }
  )	      
}

function spqr:step(?s, ?su, ?sc, ?sd, ?u, ?c, ?d) { 
  if (strlen(?s) = 1, ?u,
    let (?r = substr(?s, 2, 1)){
      if (?r = ?sc,   return(?c - ?u + spqr:parse(substr(?s, 3))),
	if (?r = ?sd, return(?d - ?u + spqr:parse(substr(?s, 3))),
	  return(?u + spqr:parse(substr(?s, 2)))))
    }
  )
}


}