All pastes #364219 Raw Edit

Plouj

public text v1 · immutable
#364219 ·published 2007-02-20 00:10 UTC
rendered paste body
init(e, [
[1, 2, 3],
[4, 5, 6],
[7, 8, 0]
]).

?- flatten(S, FlatS), init(e, S).

S = [[1, 2, 3], [4, 5, 6], [7, 8, 0]]
FlatS = [[[1, 2, 3], [4, 5, 6], [7, 8, 0]]] ;

No
?- init(e, S), flatten(S, FlatS).            

S = [[1, 2, 3], [4, 5, 6], [7, 8, 0]]
FlatS = [1, 2, 3, 4, 5, 6, 7, 8, 0] ;

No
?-