18/07/26 20:58:59.05 z8f28p8K.net
ボケ予防にProglogを弄ってみた。
身近なネタを題材にすると学習が捗るなぁ。
my_append([],Xs,Xs).
my_append([X|Ls],Ys,[X|Zs]) :- my_append(Ls,Ys,Zs).
?- my_append(Ura,[学力考査],[シリツ医大,裏口入学,学力考査]).
Ura = [シリツ医大, 裏口入学] .
?- my_append(X,Y,[ド,底辺,裏口,シリツ,医大,卒]).
X = [],
Y = [ド, 底辺, 裏口, シリツ, 医大, 卒] ;
X = [ド],
Y = [底辺, 裏口, シリツ, 医大, 卒] ;
X = [ド, 底辺],
Y = [裏口, シリツ, 医大, 卒] ;
X = [ド, 底辺, 裏口],
Y = [シリツ, 医大, 卒] ;
X = [ド, 底辺, 裏口, シリツ],
Y = [医大, 卒] ;
X = [ド, 底辺, 裏口, シリツ, 医大],
Y = [卒] ;
X = [ド, 底辺, 裏口, シリツ, 医大, 卒],
Y = [] .