Mar 2011
1 / 11
Mar 2011
Jun 2017
kate_jordan_ts
Mar '11

spoj.pl/problems/MCLONUM/
I'm getting WA , help me pls. Here is my code:

const fi='';//'MCLONUM.INP';
      fo='';//'MCLONUM.OUT';
var   a,b,n:byte;
      sta,stb,min,max:string;
procedure enter;
   var i:longint;
   begin
      assign(input,fi);reset(input);
      readln(sta);
      read(stb);
      close(input);
      min:='0';
      for i:=1 to 60 do max:=max+'9';
   end;
procedure swap( var a:char; var b: char);
   var c:char;
   begin
      c:=a; a:=b;b:=c;
   end;
function sosanh(a,b:string):byte;
   var i,d:longint;
       ca,cb:longint;
   begin
      sosanh:=2;
      for i:=1 to n do
         begin
            val(a[i],ca,d);
            val(b[i],cb,d);
            if ca<cb then exit(1)else exit(2);
         end;
   end;
procedure try(m:string; i:integer);
   var num:string;
       j,d:longint;
   begin
     if i = n+1 then
      begin
       if (sosanh(m,sta)=1) and (sosanh(min,m)=1) then min:=m;
       if (sosanh(m,max)=1) and (sosanh(m,sta)=2) then max:=m;
      end
     else
      begin
           for j := 1 to i do
           begin
               if m[1]='0' then break;
               swap(m[j],m[i]);
               try(m,i+1);
               swap(m[i],m[j]);
           end;
     end;
   end;
procedure print;
   begin
      assign(output,fo);rewrite(output);
      writeln(max);
      write(min);
      close(output);
   end;
BEGIN
   enter;
   n:=length(stb);
   try(stb,1);
   print;
END.

I'm sorry

  • created

    Mar '11

  • last reply

    Jun '17
  • 10

    replies

  • 1.7k

    views

  • 3

    users

  • 2

    links

leppyr64
Mar '11

Ideone returns a runtime error on the sample input.

Please post code that you actually submit to SPOJ that you are having an issue with. We want to help but it's frustrating if you give us code that doesn't work.

I commented out the assignments to the files and I got this:
Input:
3000203
4562454

Output:
999999999999999999999999999999999999999999999999999999999999
0

leppyr64
Mar '11

Your code still doesn't return the correct answer for the sample input.

kate_jordan_ts
Mar '11

What is the output pls?
Here is another code of mine, check it for me pls

const fi='';//'MCLONUM.INP';
      fo='';//'MCLONUM.OUT';
var a,b,kq1,kq2:array[1..60] of char;
    kt:array[1..60] of boolean;
    i,n,vt:byte;
    ch:char;
procedure mo;
var j,i:byte;
    tg:char;
    st:string;
begin
    assign(input,fi);reset(input);
    assign(output,fo);rewrite(output);
    readln(st);
    n:=length(st);
    for i:=1 to n do a[i]:=st[i];
    for i:=1 to n do read(b[i]);
    //n:=length(a);
    //writeln(n);
    //qs(1,n);
    for i:=n downto 2 do
        for j:=1 to i-1 do
            if b[j]>b[j+1] then
                begin
                    tg:=b[j];
                    b[j]:=b[j+1];
                    b[j+1]:=tg;
                end;
    //for i:=1 to n do writeln(b[i],' ',a[i]);
end;
procedure dong;
var i:byte;
begin
    if kq1[1]='0' then writeln('0') else for i:=1 to n do write(kq1[i]);
    writeln;
    if kq2[1]='0' then writeln('0') else for i:=1 to n do write(kq2[i]);
    close(input);
    close(output);
end;
function tim1(i:byte):char;
var j:byte;
    x,nho:char;
begin
    nho:='z';vt:=0;
    //x:=a[i];
    for j:=1 to n do
        if kt[j]=true then
            if b[j]>=a[i] then
                if nho>b[j] then
                    begin
                        nho:=b[j];
                        vt:=j;
                    end;
    kt[vt]:=false;
    //writeln(vt);
    if vt=0 then tim1:='z'
    else tim1:=nho;
end;
function tim2(i:byte):char;
var j:byte;
    nho:char;
begin
    nho:='z';vt:=0;
    for j:=1 to n do
        if kt[j]=true then
            if b[j]>a[i] then
                if nho>b[j] then
                    begin
                        nho:=b[j];
                        vt:=j;
                    end;
    kt[vt]:=false;
    //writeln(vt);
    if vt=0 then tim2:='z'
    else tim2:=nho;
end;
function tim3(i,j:byte):char;
var t,dem:byte;
begin
    dem:=0;
    for t:=1 to n do
        if kt[t]=true then
            begin
                inc(dem);
                if dem=j then
                begin
                    vt:=t;
                    break;
                end;
            end;
    tim3:=b[vt];
    kt[vt]:=false;
    //writeln(vt);
end;
procedure xulilon(i,j:byte;th,dk:boolean);
var x,nho:char;
    jt:byte;
begin
    if i=n+1 then exit;
    if i=0 then
        begin
            kq1[1]:='0';
            exit;
        end;
    if dk=true then
        begin
            if th=true then
                x:=tim1(i)
            else x:=tim2(i);
            //writeln(x);
            if (x='z') then
                if th=true then
                    begin
                        kt[vt]:=true;
                        //kq1[i]:='z';
                        xulilon(i-1,0,false,true);
                    end
            else begin kq1[1]:='0';exit;end;
            kq1[i]:=x;
            if x>=a[i] then xulilon(i+1,1,true,false) else xulilon(i+1,0,true,true);
        end
    else
        begin
            x:=tim3(i,j);
            kq1[i]:=x;
            //writeln(j,' ',x);
            xulilon(i+1,1,true,false);
        end;
end;
function tim4(i:byte):char;
var j:byte;
    nho:char;
begin
    nho:=#0;
    vt:=0;
    for j:=n downto 1 do
        if kt[j]=true then
            if b[j]<=a[i] then
                if nho<b[j] then
                    begin
                        nho:=b[j];
                        vt:=j;
                    end;
    if vt=0 then exit('z');
    kt[vt]:=false;
    exit(nho);
end;
function tim5(i:byte):char;
var j:byte;
    nho:char;
begin
    nho:=#0;
    vt:=0;
    for j:=n downto 1 do
        if kt[j]=true then
            if b[j]<a[i] then
                if nho<b[j] then
                    begin
                        nho:=b[j];
                        vt:=j;
                    end;
    if vt=0 then exit('z');
    kt[vt]:=false;
    exit(nho);
end;
function tim6(i,j:byte):char;
var dem,t:byte;
begin
    dem:=0;
    for t:=n downto 1 do
        if kt[t]=true then
            begin
                inc(dem);
                if dem=j then
                    begin
                        kt[t]:=false;
                        exit(b[t]);
                    end;
            end;
end;
procedure xulinho(i,j:byte;th,dk:boolean);
var x:char;
begin
    if i=n+1 then exit;
    if i=0 then
        begin
            kq2[1]:='0';
            exit;
        end;
    if dk=true then
        begin
            if th=true then
                x:=tim4(i)
            else x:=tim5(i);
            //writeln(x);
            if x='z' then
                if th=true then
                    begin
                        kt[vt]:=true;
                        xulinho(i-1,0,false,true);
                    end
                else begin kq2[1]:='0';exit;end;
            kq2[i]:=x;
            if x<=a[i] then xulinho(i+1,1,true,false) else xulinho(i+1,0,true,true);
        end
    else
        begin
            x:=tim6(i,j);
            kq2[i]:=x;
            xulinho(i+1,1,true,false);
        end;
end;
BEGIN
    mo;
    fillchar(kt,sizeof(kt),true);
    xulilon(1,0,true,true);
    fillchar(kt,sizeof(kt),true);
    xulinho(1,0,true,true);
    dong;
END.
leppyr64
Mar '11

How are you making out? We have no problem helping you, but if you're not willing to test your own code, then you're not learning anything.

6 years later