Find the missing permutation: Difference between revisions

Content added Content deleted
(Add APL)
(Fix pascal version to run in delphi (change chr to ansichar))
Line 2,279: Line 2,279:
For row := low(tcol) to High(tcol) do
For row := low(tcol) to High(tcol) do
IF SumElemCol[col,row]=fibN_1 then
IF SumElemCol[col,row]=fibN_1 then
result[col]:= chr(row+chOfs);
result[col]:= ansichar(row+chOfs);
end;
end;


Line 2,290: Line 2,290:
For row := low(tmissPerm) to High(tmissPerm) do
For row := low(tmissPerm) to High(tmissPerm) do
For col := low(tcol) to High(tcol) do
For col := low(tcol) to High(tcol) do
result[col] := chr(ord(result[col]) XOR ord(Given_Permutations[row,col]));
result[col] := ansichar(ord(result[col]) XOR ord(Given_Permutations[row,col]));
end;
end;