NO IMAGE

這題我是用深度搜尋的方法寫的。

因為要按字典順序輸出,所以填數的時候,前面的數要小於後面的數。

搜尋的時候,我把填的數放在字串裡面。

var
n,r,i:longint;
procedure print(s:string);
var
i:longint;
begin
    for i:=1 to length(s) do
    write(s[i]:3);
    writeln;
end;
procedure search(dep,l:longint;y:string);
var
i:longint;
s:string;
begin
    if dep>r then
    begin
        print(y);
        exit;
    end;
    for i:=l 1 to n do
    begin
        s:=”;
        str(i,s);
        search(dep 1,i,y s);
    end;
end;

begin
    read(n,r);
    if n>r then halt;
    search(1,0,”);
end.