Я пытаюсь декодировать данный список, например, mydecode ([(a, 1), (b, 2), (c, 3), (d, 2)], X) должен дать X = [ 'а', 'б', 'B', 'c', 'c', 'c', 'd', 'd']. В чем ошибка в этом коде?
mydecode([],[]).
mydecode([X|Ys],[X|Zs]) :- \+ is_list(X), mydecode(Ys,Zs).
mydecode([[1,X]|Ys],[X|Zs]) :- mydecode(Ys,Zs).
mydecode([[N,X]|Ys],[X|Zs]) :- N > 1, N1 is N - 1, mydecode([[N1,X]|Ys],Zs).