Question

请遵循输入/输出要求：

Input:    
[[h,i],[h,e,l,l,o],[l,a,p,t,o,p]]

我只需要摆脱那些,：

Expected output: 
[hi, hello, laptop].

我的代码：

make_LoL([],Res).
make_LoL([H|T],Res) :-  
    atom_con(H,Out),
    newRes = [Out|Res], 
    make_LoL(T,newRes).

atom_con([],Out).
atom_con([H1,H2,H3|T],Out) :-
    atom_concat(H1,H2,Ou),
    atom_concat(Ou,H3,Out),
    atom_con([], Out).

当我运行它时，它会永远循环。我有什么想法吗？

Answer 1

看看是否有效：

string([], []).
string([H | T], [S | Z]) :- helper(H, S), string(T, Z).

helper([A], A).
helper([H | T], S) :- helper(T, Z), atom_concat(H, -, Z1), atom_concat(Z1, Z, S).

如果子列表为空，则模式匹配将失败，结果将为false。因此，只有当每个子列表包含至少一个字符时，此解决方案才会出现问题。

将列表列表合并到单个列表中

1 个答案: