:- phrase(list(Es), Xs0,Xs).
@@ % Es = [], Xs0 = Xs.
@@ % Es = [_A], Xs0 = [_A|Xs].
@@ % Es = [_A,_B], Xs0 = [_A,_B|Xs].
@@ % Es = [_A,_B,_C], Xs0 = [_A,_B,_C|Xs].
@@ % Es = [_A,_B,_C,_D], Xs0 = [_A,_B,_C,_D|Xs].
@@ % Es = [_A,_B,_C,_D,_E], Xs0 = [_A,_B,_C,_D,_E|Xs].
@@ % Es = [_A,_B,_C,_D,_E,_F], Xs0 = [_A,_B,_C,_D,_E,_F|Xs].
@@ % Es = [_A,_B,_C,_D,_E,_F,_G], Xs0 = [_A,_B,_C,_D,_E,_F,_G|Xs]. % 0.0 s (0.1 s)
@@ % Es = [_A,_B,_C,_D,_E,_F,_G,_H], Xs0 = [_A,_B,_C,_D,_E,_F,_G,_H|Xs]. % 0.0 s (0.1 s)
@@ % Es = [_A,_B,_C,_D,_E,_F,_G,_H,_I], Xs0 = [_A,_B,_C,_D,_E,_F,_G,_H,_I|Xs]. % 0.0 s (0.1 s)
@@ ? Weitere Lösungen mit SPACE
:- phrase(list(Es), Es,Es).
list([]) -->
[].
list([E|Es]) -->
[E],
list(Es).
----- n599 ------------------------
Ask for more with
.
[logprog|GUPU|UWN]