0 SLAVEK 20041282044170 rkEdit: 28.1.2004 20:44:17 10902765818840 Faktoriál 1 ANONYMOUS BLOCK <anonymous> <anonymous> 3809422 1 3809422 3809422 3809422 N/A ANONYMOUS BLOCK <anonymous> <anonymous> 7778362 2 7778362 1001803 6776559 N/A PROCEDURE SLAVEK INSERTFACTORIALS 20041282042290 10844977952502 1 146666 146666 146666 i NUMBER := 0; 5001 10100086742 743669 279546981 EXIT WHEN i = aMaxNumbers; 5000 7479895827542 94503910 8051116552 vFactorial := Math_Pkg.Factorial (i); -- mnohem lepší způsob 5000 2408850845568 214399595 9749259472 i := i + 1; 5000 24538827979 1882641 289317497 5001 921592218005 1859733 1123935583 END InsertFactorials; PACKAGE BODY SLAVEK MATH_PKG 20041282042160 4864867961986 5000 16473559349 1080025 312466807 IF a_Number IN (0, 1) THEN 5000 4308057029 266793 248049682 RETURN 1; 4998 911357449 72914 75403438 END IF; 4998 371380999 65930 7431670 END Factorial; 12497499 1247803316063 89676 1067690446 N/A 12492501 958502228914 51961 657719347 N/A 12492501 2617295750158 169015 5727255000 N/A 4998 19202312025 1316368 1293409357 N/A TRIGGER SLAVEK FACTORIALBEFINS 20041282041570 656938004131 5000 553015189081 40963865 1264203690 SELECT FactorialSeq.NextVal 10000 82217186262 519339 322264701 :new.CreatedBy := USER; 10000 21705628788 529396 102488444 :new.CreatedAt := SYSDATE; ANONYMOUS BLOCK <anonymous> <anonymous> 24386618 2 24386618 7038883 17347735 N/A ANONYMOUS BLOCK <anonymous> <anonymous> 13658439 1 13658439 13658439 13658439 N/A 0 SLAVEK 20041282047310 rkEdit: 28.1.2004 20:47:31 10129464810471 Faktoriál 2 ANONYMOUS BLOCK <anonymous> <anonymous> 3360762 1 3360762 3360762 3360762 N/A ANONYMOUS BLOCK <anonymous> <anonymous> 7473296 2 7473296 1079466 6393829 N/A PROCEDURE SLAVEK INSERTFACTORIALS 20041282046560 3598877614331 1 144711 144711 144711 i NUMBER := 0; 5001 10216320230 762108 181992124 EXIT WHEN i = aMaxNumbers; 10000 19853712692 67326 280147616 vFactorial := Math_Pkg.Factorial (i); -- mnohem lepší způsob 5000 2634682588988 236018264 2087646055 INSERT INTO Factorial (NumberValue, Factorial) 5000 24396739529 2001930 271438409 i := i + 1; 5001 909728108181 1778717 5764270039 PACKAGE BODY SLAVEK MATH_PKG 20041282042160 4954025697677 5000 8127812613 805130 129339343 IF a_Number IN (0, 1) THEN 5000 3187821636 240253 155797175 RETURN 1; 4998 425174707 64812 49937352 END IF; 4998 881136569 60063 548952 END Factorial; 12497499 1282820874161 89117 1383885661 N/A 12492501 959537738176 51123 1253652908 N/A 12492501 2682681356988 167898 9318746935 N/A 4998 16363782827 1021079 973974066 N/A TRIGGER SLAVEK FACTORIALBEFINS 20041282041570 805140914277 5000 699213985017 52903930 1175245457 SELECT FactorialSeq.NextVal 10000 80977650232 521574 336328499 :new.CreatedBy := USER; 10000 24949279028 490285 223672003 :new.CreatedAt := SYSDATE; ANONYMOUS BLOCK <anonymous> <anonymous> 23227533 2 23227533 5738159 17489373 N/A ANONYMOUS BLOCK <anonymous> <anonymous> 15519570 1 15519570 15519570 15519570 N/A 0 SLAVEK 20041282050470 rkEdit: 28.1.2004 20:50:47 8083151984400 Faktoriál 3 ANONYMOUS BLOCK <anonymous> <anonymous> 3550171 1 3550171 3550171 3550171 N/A ANONYMOUS BLOCK <anonymous> <anonymous> 9412648 2 9412648 2867403 6545245 N/A PROCEDURE SLAVEK INSERTFACTORIALS 20041282050170 1777280942687 1 97219 97219 97219 i NUMBER := 0; 5001 4429156498 417092 9585575 EXIT WHEN i = aMaxNumbers; 10000 8624872714 61180 88640874 vFactorial := Math_Pkg.Factorial (i); -- mnohem lepší způsob 5000 1744356763499 161299550 1672450548 INSERT INTO Factorial (NumberValue, Factorial) 5000 19317218249 1639035 95971415 i := i + 1; 1 552834508 552834508 552834508 COMMIT; PACKAGE BODY SLAVEK MATH_PKG 20041282042160 4791297069875 5000 4428506975 556774 119001716 IF a_Number IN (0, 1) THEN 5000 1744683472 150857 16766935 RETURN 1; 4998 461279017 65650 8853918 END IF; 4998 339455712 55314 3673930 END Factorial; 12497499 1265258693772 90793 6865323386 N/A 12492501 918053982000 51403 1375668136 N/A 12492501 2591928317425 169853 1211780547 N/A 4998 9082151502 685841 89677319 N/A TRIGGER SLAVEK FACTORIALBEFINS 20041282041570 598492355312 5000 522736620715 40296462 1306243111 SELECT FactorialSeq.NextVal 10000 56904398464 509003 336122887 :new.CreatedBy := USER; 10000 18851336133 459834 140643294 :new.CreatedAt := SYSDATE; ANONYMOUS BLOCK <anonymous> <anonymous> 21719799 2 21719799 4986108 16733691 N/A ANONYMOUS BLOCK <anonymous> <anonymous> 13719062 1 13719062 13719062 13719062 N/A 0 SLAVEK 20041282057460 rkEdit: 28.1.2004 20:57:46 31685605673346 Faktoriál 4 ANONYMOUS BLOCK <anonymous> <anonymous> 3327238 1 3327238 3327238 3327238 N/A ANONYMOUS BLOCK <anonymous> <anonymous> 10004623 2 10004623 2636089 7368534 N/A PROCEDURE SLAVEK INSERTFACTORIALS 20041282050170 2824599375058 1 139682 139682 139682 i NUMBER := 0; 5001 6302397651 416254 25495419 EXIT WHEN i = aMaxNumbers; 10000 12245391523 66209 193574322 vFactorial := Math_Pkg.Factorial (i); -- mnohem lepší způsob 5000 2780972630320 172955221 2080047045 INSERT INTO Factorial (NumberValue, Factorial) 5000 24750322457 1677308 281831908 i := i + 1; 1 328493425 328493425 328493425 COMMIT; PACKAGE BODY SLAVEK MATH_PKG 20041282056170 16951322734871 12497501 4753870607297 334958 2217085411 IF a_Number IN (0, 1) THEN 12497501 619669385913 42463 715736776 RETURN 1; 12497499 11577782741661 329650 11233567953 RETURN a_Number * Factorial (a_Number-1); TRIGGER SLAVEK FACTORIALBEFINS 20041282041570 900371606167 5000 784651698470 41825706 1238167141 SELECT FactorialSeq.NextVal 10000 90866996224 531352 718964561 :new.CreatedBy := USER; 10000 24852911473 443352 191982779 :new.CreatedAt := SYSDATE; ANONYMOUS BLOCK <anonymous> <anonymous> 30531534 2 30531534 13599214 16932319 N/A ANONYMOUS BLOCK <anonymous> <anonymous> 16245360 1 16245360 16245360 16245360 N/A PACKAGE BODY MATH_PKG IS FUNCTION Factorial (a_Number NUMBER) RETURN NUMBER IS BEGIN IF a_Number IN (0, 1) THEN RETURN 1; ELSE RETURN a_Number * Factorial (a_Number-1); END IF; END Factorial; END MATH_PKG; PROCEDURE InsertFactorials (aMaxNumbers NUMBER) IS i NUMBER := 0; vFactorial NUMBER; BEGIN LOOP EXIT WHEN i = aMaxNumbers; vFactorial := Math_Pkg.Factorial (i); -- mnohem lepší způsob INSERT INTO Factorial (NumberValue, Factorial) VALUES (i, vFactorial); i := i + 1; END LOOP; COMMIT; END InsertFactorials; BEGIN SELECT FactorialSeq.NextVal INTO :new.IDFactorial FROM DUAL; :new.CreatedBy := USER; :new.CreatedAt := SYSDATE; END FactorialBefIns;