[SQL]高级SQL-递归(2)

第二部分数据集 - 公共交通 Schema

公共交通数据集Fahrplan在 https://hyper-db.de/interface.html 可以直接使用。另外在这个网页不允许进行写操作:insert, update, delete之类的transactional query。当然create tabledrop table也不被允许。

本地载入改数据集https://segmentfault.com/a/1190000021623693#item-3-3

英文Schema: Fahrplan = \{\underline{From\_, To\_, Line\_}, depart, arrival\}

德文Schema: Fahrplan = \{\underline{Von, Nach, Linie}, Abfahrt, Ankunft\}

有关英文Schema:在我的文章提到这一块内容。德文schema可以直接在HyPer网页接口运行。这里为了方便大家直接在网页上运行,我采用德文schema。

Schma和大部分SQL语句来自Prof. Alfons Kemper, Ph.D.的课件和书。

课件:

书: https://db.in.tum.de/teaching/bookDBMSeinf/?lang=de

熟悉数据集

首先我们先运行一些简单SQL,来认识一下这个数据集内之间的关系。

  • von这一行字符串(string)匹配:
select distinct von
from fahrplan
where von like '%Garching%'
             von             
-----------------------------
Garching
Garching, Forschungszentrum
Garching-Hochbrück
(3 rows)
  • case
select linie,
       case
           when linie like 'U%' then 'U-Bahn'
           when linie like 'S%' then 'S-Bahn'
           else 'Bus/Tram'
           end as public_transportation
from fahrplan
 linie | public_transportation 
-------+-----------------------
 U6    | U-Bahn
 U6    | U-Bahn
 U6    | U-Bahn
 U6    | U-Bahn
 U6    | U-Bahn
 U6    | U-Bahn
 690   | Bus/Tram
(7 rows)
  • 求从Garching, Forschungszentrum出发,我们现在(current_time)能赶上的交通工具:
select *
from fahrplan
where abfahrt > current_time and von = 'Garching, Forschungszentrum'
order by abfahrt
  • 搜索两个车站,这俩之间需要3分钟到5分钟能够到达(注意第一天午夜发车,第二天凌晨到达的情况):
with duration as (
    select *,
    (case when ankunft < abfahrt then 60 * 60 * 24 - extract(epoch from abfahrt - ankunft)
          else extract(epoch from ankunft - abfahrt)
    end) as duration_in_sec
    from fahrplan
)

select *
from duration
where duration_in_sec between 3*60 and 5*60

或者

with duration as (
    select *,
    (case when ankunft < abfahrt then 60 * 60 * 24 - extract(epoch from abfahrt - ankunft)
          else extract(minute from ankunft - abfahrt)
    end) as duration_in_min
    from fahrplan
)

select *
from duration
where duration_in_min between 3 and 5

</br>

很显然下面的写法会忽略第一天午夜发车,第二天凌晨到达的情况:

select *
from fahrplan
where extract(epoch from ankunft - abfahrt) between 3*60 and 5*60

select *
from fahrplan
where extract(minute from ankunft - abfahrt) between 3 and 5

列出所有可能的公共交通连接:

with recursive fahrplan_rec as (
    -- von -> nach
    select von, nach, abfahrt, ankunft from fahrplan
    union all
    -- fr. von -> fr.nach = f.von -> f.nach 多走一步
    -- 从fr.von到f.nach
    select fr.von, f.nach, fr.abfahrt, f.ankunft
    from fahrplan_rec fr, fahrplan f
    where fr.nach = f.von and fr.ankunft <= f.abfahrt and fr.von != f.nach -- 不能是环
)

select *
from fahrplan_rec
  • fr.ankunft <= f.abfahrt:我们的前提
  • fr.von != f.nach: 排除我们从A到A(即成环的情况)。

列出所有可能的公共交通连接 + 乘车时间 + 等车时间:

with recursive fahrplan_rec_linie as (
    -- von -> nach
    select
        von,
        nach,
        abfahrt,
        ankunft,
        ankunft - abfahrt as fahrtzeit,
        INTERVAL '00:00:00' as wartezeit
    from fahrplan
    union all
    -- fr. von -> fr.nach = f.von -> f.nach 多走一步
    -- 从fr.von到f.nach
    select
        fr.von,
        f.nach,
        fr.abfahrt,
        f.ankunft,
        fr.fahrtzeit + (f.ankunft - f.abfahrt),
        fr.wartezeit + (f.abfahrt - fr.ankunft)
        from fahrplan_rec_linie fr, fahrplan f
    where fr.nach = f.von and fr.ankunft <= f.abfahrt and fr.von != f.nach
), fahrplan_rec as (
    select
        von,
        nach,
        abfahrt,
        ankunft,
        fahrtzeit,
        wartezeit,
        fahrtzeit + wartezeit as reisezeit
    from fahrplan_rec_linie
)

select *
from fahrplan_rec

列出所有可能的公共交通连接 + 乘车时间 + 等车时间 + 转乘次数:

with recursive fahrplan_rec_linie as (
    -- von -> nach
    select
        von,
        nach,
        abfahrt,
        ankunft,
        linie as aktuelle_linie,
        0 as umstiege,
        ankunft - abfahrt as fahrtzeit,
        INTERVAL '00:00:00' as wartezeit
    from fahrplan
    union all
    -- fr. von -> fr.nach = f.von -> f.nach 多走一步
    -- 从fr.von到f.nach
    select
        fr.von,
        f.nach,
        fr.abfahrt,
        f.ankunft,
        f.linie,
        fr.umstiege +
            case
                when f.linie != fr.aktuelle_linie or f.abfahrt > fr.ankunft then 1
                else 0
            end,
        fr.fahrtzeit + (f.ankunft - f.abfahrt),
        fr.wartezeit + (f.abfahrt - fr.ankunft)
        from fahrplan_rec_linie fr, fahrplan f
    where fr.nach = f.von and fr.ankunft <= f.abfahrt and fr.von != f.nach
), fahrplan_rec as (
    select
        von,
        nach,
        abfahrt,
        ankunft,
        umstiege,
        fahrtzeit,
        wartezeit,
        fahrtzeit + wartezeit as reisezeit
    from fahrplan_rec_linie
)

select *
from fahrplan_rec

10:30之前从Fröttmaning到达Garching, Forschungszentrum

我们需要一次好的公共交通:最迟需要在10:30到达,而且没有任何一个另外的公共交通迟出发但是也能在10:30之前到, 而且总时间更少, 而且换乘数也更少:

with recursive fahrplan_rec_linie as (
    -- von -> nach
    select
        von,
        nach,
        abfahrt,
        ankunft,
        linie as aktuelle_linie,
        0 as umstiege,
        ankunft - abfahrt as fahrtzeit,
        INTERVAL '00:00:00' as wartezeit
    from fahrplan
    union all
    -- fr. von -> fr.nach = f.von -> f.nach 多走一步
    -- 从fr.von到f.nach
    select
        fr.von,
        f.nach,
        fr.abfahrt,
        f.ankunft,
        f.linie,
        fr.umstiege +
            case
                when f.linie != fr.aktuelle_linie or f.abfahrt > fr.ankunft then 1
                else 0
            end,
        fr.fahrtzeit + (f.ankunft - f.abfahrt),
        fr.wartezeit + (f.abfahrt - fr.ankunft)
        from fahrplan_rec_linie fr, fahrplan f
    where fr.nach = f.von and fr.ankunft <= f.abfahrt and fr.von != f.nach
), fahrplan_rec as (
    select
        von,
        nach,
        abfahrt,
        ankunft,
        umstiege,
        fahrtzeit,
        wartezeit,
        fahrtzeit + wartezeit as reisezeit
    from fahrplan_rec_linie
)

select *
from fahrplan_rec fr
where fr.von = 'Fröttmaning' and fr.nach = 'Garching, Forschungszentrum'
      and fr.ankunft <= TIME '10:30:00' and not exists (
          select * from fahrplan_rec fr2
          where fr2.von = fr.von and fr2.nach = fr.nach and fr2.ankunft <= TIME '10:30:00' and
                fr2.abfahrt > fr.abfahrt and fr2.reisezeit < fr.reisezeit and fr2.umstiege < fr.umstiege
          )

union vs. union all

下面我们来研究一下图论(graph theory)来加强对unionunion all的印象。

求从Garching, Forschungszentrum能到达的所有地方(可到达性(st-connectivity)):

with recursive closure as (
    select von, nach
    from fahrplan
    union -- Set(集合)
    select c.von, f.nach
    from closure c, fahrplan f
    where c.nach = f.von
)

select distinct von, nach
from closure
where von = 'Garching, Forschungszentrum'
order by nach

这里只能是union,不能是union all
比如有A->B, B->Aunion all的情况下,不会终止。

求从Garching从两个方向能到达的所有地方:

with recursive closure as (
    select von, nach
    from fahrplan
    union -- Set(集合)
    select f.von , c.nach
    from fahrplan f, closure c
    where f.nach = c.von
) , connected_graph as (
    select von, nach
    from fahrplan
    union -- Set(集合)
    select c.von , cg.nach
    from closure c , connected_graph cg
    where c.nach = cg.von
)

select distinct *
from connected_graph
where von = 'Garching'
order by von;

再来一个图论的例子:

dag.png

这个图是一个有向无环图(DAG, directed acyclic graph)。

with recursive graph (von , nach) as (
    -- Basic relation
    values ('a', 'b'),
           ('b', 'c'),
           ('c' ,'d'),
           ('b', 'e'),
           ('f', 'c'),
           ('x', 'y') -- 第二个联通部分
), un_dir_graph (von, nach) as (
    -- 无向图
    (select von, nach
    from graph)
    union all
    (select nach, von
    from graph)
), closure (von, nach) as (
    (select von, nach
    from un_dir_graph)
    union -- Set(集合)
    (select c.von, g.nach
    from closure c, graph g
    where c.nach = g.von)
), connected_graph (von ,nach) as (
    (select nach , von
    from closure)
    union -- Set(集合)
    (select c.von , cg.nach
    from closure c, connected_graph cg
    where c.nach = cg.von)
)

select nach
from connected_graph
where von = 'b' -- Garching
order by nach;

很容易发现closure是一个对称的关系(symmetric relation):
\exists (a , b) \in R \Rightarrow (b, a) \in R

这时候我们用UNION ALL是肯定不会终止的,因为UNION ALL采用包语义(Bag Semantics),它不会消除重复(duplicates)。
UNION采用集合语义(Set Semantics),它会消除重复。

该文章遵循创作共用版权协议 CC BY-NC 3.0,要求署名、非商业 、保持一致。在满足创作共用版权协议 CC BY-NC 3.0 的基础上可以转载,但请以超链接形式注明出处。文章仅代表作者的知识和看法,如有不同观点,可以回复并讨论。

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 196,200评论 5 462
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 82,526评论 2 373
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 143,321评论 0 325
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 52,601评论 1 267
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 61,446评论 5 358
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 46,345评论 1 273
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 36,753评论 3 387
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 35,405评论 0 255
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 39,712评论 1 294
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 34,743评论 2 314
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 36,529评论 1 326
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 32,369评论 3 315
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 37,770评论 3 300
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,026评论 0 19
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 30,301评论 1 251
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 41,732评论 2 342
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 40,927评论 2 336

推荐阅读更多精彩内容

  • 递归 Recursion 我们这一篇文章采用并介绍PostgreSQL的SQL递归(Recursion)语法。递归...
    CakeByTheOcean阅读 237评论 0 1
  • 正文 这里我们会遇到subquery,它可以出现在select子句中或者where子句或者from子句中。它会产生...
    CakeByTheOcean阅读 270评论 0 1
  • 数据集 我们这一篇文章采用PostgreSQL的SQL语法。重点我们关注select...from...where...
    CakeByTheOcean阅读 145评论 0 0
  • web应用程序会对用户的输入进行验证,过滤其中的一些关键字,这种过滤我们可以试着用下面的方法避开。 1、 不使用被...
    查无此人asdasd阅读 7,238评论 0 5
  • 数据集 我们这一篇文章采用PostgreSQL的SQL语法。重点我们关注select...from...where...
    CakeByTheOcean阅读 175评论 0 0