File: issue_875.bdy

package info (click to toggle)
cloc 2.06-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 8,064 kB
  • sloc: perl: 30,146; cpp: 1,219; python: 623; ansic: 334; asm: 267; makefile: 244; sh: 186; sql: 144; java: 136; ruby: 111; cs: 104; pascal: 52; lisp: 50; haskell: 35; f90: 35; cobol: 35; objc: 25; php: 22; javascript: 15; fortran: 9; ml: 8; xml: 7; tcl: 2
file content (26 lines) | stat: -rw-r--r-- 545 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
/*
 * bubble sort
 */
DECLARE
  TYPE number_array IS VARRAY(100) OF NUMBER;
  arr number_array := number_array(64, 34, 25, 12, 22, 11, 90);
  n NUMBER := arr.COUNT;
  i NUMBER := 0;
  j NUMBER := 0;
  temp NUMBER;
BEGIN
  FOR i IN 1 .. (n - 1) LOOP -- outer
    FOR j IN 1 .. (n - i - 1) LOOP -- inner
      IF arr(j) > arr(j + 1) THEN
        temp := arr(j);
        arr(j) := arr(j + 1);
        arr(j + 1) := temp;
      END IF;
    END LOOP;
  END LOOP;
  -- print
  FOR i IN 1 .. n LOOP
    DBMS_OUTPUT.PUT_LINE(arr(i));
  END LOOP;
END;
/