wizards.logic

来自「国外的一套开源CRM」· LOGIC 代码 · 共 6 行

prefix([], List);
prefix([X | Rest1], [X | Rest2]) :- 
    prefix(Rest1, Rest2); 

show(Wizard) :- prefix(
    Wizard, ["merlin", "prospero", "gandalf", "harry"]);