fork(1) download
copy 
  1. var
  2.   mat : array [1..6, 1..6] of longint = 
  3.         ( (-23, 11, -17, 8, -10, -10),
  4.           (17, -25, -58, -32, -45, -65),
  5.           (-20, -58, 28, -30, 4, -21),
  6.           (-10, -47, -31, 100, -10, 25),
  7.           (-11, -48, 29, -17, 2, -14),
  8.           (14, -70, 80, 20, 41, -41) );
  9.   i, j : longint;       
  10.  
  11. function ok(batas, r, c : integer; arah : string):boolean;
  12. begin
  13.   if (r > 6) or (c > 6) then exit (false);
  14.   if (batas + mat[r][c] <= 0) then exit(false);
  15.   inc(batas, mat[r][c]);
  16.   if (r = 6) and (c = 6) then
  17.   begin
  18.     writeln(arah);
  19.     exit(true);
  20.   end;
  21.   exit(ok(batas, r+1,c, arah + 'd') or ok(batas, r,c+1, arah + 'r'));
  22. end;
  23.  
  24. begin
  25.   for i := 1 to 100 do
  26.   begin
  27.     if (ok(i, 1, 1, '')) then
  28.     begin
  29.       writeln(i);
  30.       break;
  31.     end;
  32.   end;
  33. end.
  34.  
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
rrrrdddddr
83
https://ideone.com/NeKthU
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!