取り合えずいくつか無理やり差分リストで書いてみる。 % 深さ優先で左から走査する場合 flatten(NestedList, FlatList) :- flatten_sub(NestedList, [FlatList, []]). flatten_sub([X | Xs], [Head , Tail]) :- flatten_sub(X, [Head, Appender]), flatten_s…