This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/docs/index/Benchmarks/tc_d_oo_chain100.P
kostis abb8209bd4 Added the first set of benchmarks.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1818 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-03-09 18:53:13 +00:00

113 lines
1.6 KiB
OpenEdge ABL

abolish_table_info :- at(tc_bench/2).
time :- statistics(runtime,_), benchmark, fail;
statistics(runtime,[_,T]), write(T).
benchmark :- tc_bench(_Out1, _Out2).
:- table tc_bench/2.
tc_bench(A, B) :- chain(A, B).
tc_bench(A, B) :- tc_bench(A, C), tc_bench(C, B).
chain(0,1).
chain(1,2).
chain(2,3).
chain(3,4).
chain(4,5).
chain(5,6).
chain(6,7).
chain(7,8).
chain(8,9).
chain(9,10).
chain(10,11).
chain(11,12).
chain(12,13).
chain(13,14).
chain(14,15).
chain(15,16).
chain(16,17).
chain(17,18).
chain(18,19).
chain(19,20).
chain(20,21).
chain(21,22).
chain(22,23).
chain(23,24).
chain(24,25).
chain(25,26).
chain(26,27).
chain(27,28).
chain(28,29).
chain(29,30).
chain(30,31).
chain(31,32).
chain(32,33).
chain(33,34).
chain(34,35).
chain(35,36).
chain(36,37).
chain(37,38).
chain(38,39).
chain(39,40).
chain(40,41).
chain(41,42).
chain(42,43).
chain(43,44).
chain(44,45).
chain(45,46).
chain(46,47).
chain(47,48).
chain(48,49).
chain(49,50).
chain(50,51).
chain(51,52).
chain(52,53).
chain(53,54).
chain(54,55).
chain(55,56).
chain(56,57).
chain(57,58).
chain(58,59).
chain(59,60).
chain(60,61).
chain(61,62).
chain(62,63).
chain(63,64).
chain(64,65).
chain(65,66).
chain(66,67).
chain(67,68).
chain(68,69).
chain(69,70).
chain(70,71).
chain(71,72).
chain(72,73).
chain(73,74).
chain(74,75).
chain(75,76).
chain(76,77).
chain(77,78).
chain(78,79).
chain(79,80).
chain(80,81).
chain(81,82).
chain(82,83).
chain(83,84).
chain(84,85).
chain(85,86).
chain(86,87).
chain(87,88).
chain(88,89).
chain(89,90).
chain(90,91).
chain(91,92).
chain(92,93).
chain(93,94).
chain(94,95).
chain(95,96).
chain(96,97).
chain(97,98).
chain(98,99).
chain(99,100).