2022-03-27 04:10:37 +00:00
|
|
|
(local Sqlog (require :waltz.sqlog))
|
|
|
|
|
(import-macros {: $ : query : defrules} :waltz.macros)
|
|
|
|
|
|
|
|
|
|
(local s (Sqlog))
|
|
|
|
|
(s:deftable :parent :parent :child)
|
2022-03-27 16:26:26 +00:00
|
|
|
(s:deftable :p :x :y)
|
|
|
|
|
(s:deftable :q :z)
|
2022-03-27 04:10:37 +00:00
|
|
|
(defrules s
|
2022-03-27 18:34:50 +00:00
|
|
|
([generation name (|| name " jr") 2] [parent name (|| name " jr")])
|
|
|
|
|
([generation name (|| name " iii") 3] [ancestor name (|| name " iii")])
|
2022-03-27 16:26:26 +00:00
|
|
|
([ancestor x y] [parent x y])
|
|
|
|
|
([ancestor x y] [parent x z] [ancestor z y]))
|
2022-03-27 18:34:50 +00:00
|
|
|
(pp (query s [generation "bob" descendant nth]))
|
2022-03-27 04:10:37 +00:00
|
|
|
|
