能不能帮我编一个输出所有L位K进制的所有数？
谢谢了

用深搜模式枚举

ls我不明白
为什么找所有解还是要用广搜呢？广搜不是找最优解吗
如果找所有解的话，广搜将和深搜一样慢，还要花大量的时间保存那么多的节点，还是深搜吧
procedure dfs(code:integer);
var i:integer;
begin
  if code=l+1 then for i:=1 to l do write(a[i])
  else begin
         for i:=0 to k-1 do
           begin
             a[code]:=i;
             dfs(i+1);
           end;
end;//因为a[code]:=i是个赋值，会自动更新所以不用回溯
核心部分大概是这个样吧...最近老一段时间不写程序了，这一段是手打的基本100%有错，但是能提供个思路吧，希望帮到LZ