Skip to main content
removed extra newlines
Source Link
jmm
  • 261
  • 1
  • 5

And the loser is... Pascal! 178178 148 bytes

Sidenote: this isn't golfed at all, besides newlines and spaces. I haven't coded in Pascal for more than 10 years, so I used it just for the memories.

Golfed:

program p;procedure p(n:integer);var i,j:integer;begin for i:=1 to n do begin for j:=1 to i do begin write(j); end; writeln; end end;begin p(5);end.

Ungolfed:

program p;
procedure p(n:integer);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to i do begin
            write(j);
        end;
        writeln;
    end
end;
begin
    p(5);
end.

And the loser is... Pascal! 178 bytes

Sidenote: this isn't golfed at all. I haven't coded in Pascal for more than 10 years, so I used it just for the memories.

program p;
procedure p(n:integer);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to i do begin
            write(j);
        end;
        writeln;
    end
end;
begin
    p(5);
end.

And the loser is... Pascal! 178 148 bytes

Sidenote: this isn't golfed at all, besides newlines and spaces. I haven't coded in Pascal for more than 10 years, so I used it just for the memories.

Golfed:

program p;procedure p(n:integer);var i,j:integer;begin for i:=1 to n do begin for j:=1 to i do begin write(j); end; writeln; end end;begin p(5);end.

Ungolfed:

program p;
procedure p(n:integer);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to i do begin
            write(j);
        end;
        writeln;
    end
end;
begin
    p(5);
end.
fixed h1
Source Link
jmm
  • 261
  • 1
  • 5

And the loser is... Pascal! 178 bytes

And the loser is... Pascal! 178 bytes

Sidenote: this isn't golfed at all. I haven't coded in Pascal for more than 10 years, so I used it just for the memories.

program p;
procedure p(n:integer);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to i do begin
            write(j);
        end;
        writeln;
    end
end;
begin
    p(5);
end.

And the loser is... Pascal! 178 bytes

Sidenote: this isn't golfed at all. I haven't coded in Pascal for more than 10 years, so I used it just for the memories.

program p;
procedure p(n:integer);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to i do begin
            write(j);
        end;
        writeln;
    end
end;
begin
    p(5);
end.

And the loser is... Pascal! 178 bytes

Sidenote: this isn't golfed at all. I haven't coded in Pascal for more than 10 years, so I used it just for the memories.

program p;
procedure p(n:integer);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to i do begin
            write(j);
        end;
        writeln;
    end
end;
begin
    p(5);
end.
Source Link
jmm
  • 261
  • 1
  • 5

And the loser is... Pascal! 178 bytes

Sidenote: this isn't golfed at all. I haven't coded in Pascal for more than 10 years, so I used it just for the memories.

program p;
procedure p(n:integer);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to i do begin
            write(j);
        end;
        writeln;
    end
end;
begin
    p(5);
end.