пытаясь сгенерировать сетку N * N "grid_gen (N, M)" из случайных чисел

Question

Создайте сетку N * N с сеткой 3 * 3, которая выглядит следующим образом [[x, y, z], [a, b, c], [u, i, o]], где x, y, z .. и т. д. являются строками, а x, a, u .. etc - столбцы, мы получаем бесконечный цикл с одинаковыми значениями.

grid_gen(N,M):-
    grid_build(N,M1),
    grid_add(N,M1),
    acceptable_permutation(M1,M). % this works fine.
grid_gen(N,M):-
    \+acceptable_permutation(M1,M), %this works fine.
    grid_gen(N,M).

grid_add(_,[]).
grid_add(N,[H|T]):-
    grid_add(N,T),
    generate_list(N,N,H).

grid_add(_,[]).
grid_add(N,[H|T]):-
    grid_add(N,T),
    generate_list(N,N,H).