Find the missing permutation: Difference between revisions

Fix pascal version to run in delphi (change chr to ansichar)
(Add APL)
(Fix pascal version to run in delphi (change chr to ansichar))
Line 2,279:
For row := low(tcol) to High(tcol) do
IF SumElemCol[col,row]=fibN_1 then
result[col]:= chransichar(row+chOfs);
end;
 
Line 2,290:
For row := low(tmissPerm) to High(tmissPerm) do
For col := low(tcol) to High(tcol) do
result[col] := chransichar(ord(result[col]) XOR ord(Given_Permutations[row,col]));
end;
 
478

edits