daily pastebin goal
19%
SHARE
TWEET

Untitled

a guest Jun 13th, 2018 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library Sudoku_Plugin;
  2.  
  3. uses
  4.   FastShareMem,
  5.   SysUtils,
  6.   Windows,
  7.   Math;
  8.  
  9. {$R *.res}
  10.  
  11. function SolveSudoku(InitialPuzzle: TIntegerArray): TIntegerArray; stdcall;
  12. begin
  13.   Result := []; // SOLUTION
  14. end;
  15.  
  16.  
  17. function GetFunctionCount(): Integer; stdcall; export;
  18. begin
  19.   Result := 1;
  20. end;
  21.  
  22. function GetFunctionInfo(x: Integer; var ProcAddr: Pointer; var ProcDef: PChar): Integer; stdcall;
  23. begin
  24.   case x of
  25.     0:begin
  26.         ProcAddr := @SolveSudoku;
  27.         StrPCopy(ProcDef, 'function SolveSudoku(InitialPuzzle: TIntegerArray): TIntegerArray');
  28.       end;
  29.   else
  30.     x := -1;
  31.   end;
  32.   Result := x;
  33. end;
  34.  
  35. exports GetFunctionCount;
  36. exports GetFunctionInfo;
  37.  
  38. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top