t_id
787
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:46:00 0 | |
i386 | 36 | 72.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:46:00 0 | |
x86_64 | 12 | 24.0 | 2024/05/21 01:21:00 14 | 2024/05/21 01:46:00 0 | |
aarch64 | 2 | 4.0 | 2024/05/21 01:29:00 35 | 2024/05/21 01:46:00 0 | |
linux | 50 | 100.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:46:00 0 | |
3.3.1 | 25 | 50.0 | 2024/05/21 01:20:00 31 | 2024/05/21 01:46:00 0 | |
3.2.3 | 25 | 50.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:46:00 0 |
{ Source provided for Free Pascal Bug Report 1269 } { Submitted by "Rob Kolstad" on 2000-11-28 } { e-mail: kolstad@ace.delos.com } {$ifdef cpu68k} {$define COMP_IS_INT64} {$endif cpu68k} var A : array [0..25, 0..100] of comp; V : array [1..25] of longint; vt, nn : longint; i, j : longint; function calc(m : longint; n : longint) : comp; var i : longint; begin writeln(m,' ',n, ' ', a[m,n]); if A[m, n] <> -1 then begin calc := A[m, n] end else begin if n = 0 then begin A[m, n] := 1; calc := 1; exit; end; A[m, n] := 0; for i := m downto 1 do if n - V[i] >= 0 then A[m, n] := A[m, n] + calc(i, n - V[i]); calc := A[m, n]; end; end; begin vt := 10; nn := 100; v[1] := 1; v[2] := 2; v[3] := 3; v[4] := 4; v[5] := 5; v[6] := 6; v[7] := 7; v[8] := 8; v[9] := 9; v[10] := 10; for i := 0 to 25 do for j := 0 to nn do A[i, j] := -1; {$ifdef COMP_IS_INT64} writeln( calc(vt, nn)); {$else not COMP_IS_INT64} writeln( calc(vt, nn) :0:0); {$endif COMP_IS_INT64} end.