Sorting algorithms/Insertion sort: Difference between revisions

Content added Content deleted

Inline

@@ Line 407: / Line 407: @@
        F-999.
            EXIT.</lang>
+And a fully runnable version, by Steve Williams
+{{works with|GnuCOBOL}}
+<lang COBOL>
+        >>SOURCE FORMAT FREE
+*> This code is dedicated to the public domain
+*> This is GNUCOBOL 2.0
+identification division.
+program-id. insertionsort.
+environment division.
+configuration section.
+repository. function all intrinsic.
+data division.
+working-storage section.
+filler.
+a pic 99.
+a-lim pic 99 value 10.
+array occurs 10 pic 99.
+filler.
+s pic 99.
+o pic 99.
+o1 pic 99.
+sorted-len pic 99.
+sorted-lim pic 99 value 10.
+sorted-array occurs 10 pic 99.
+procedure division.
+start-insertionsort.
+    *> fill the array
+    compute a = random(seconds-past-midnight)
+    perform varying a from 1 by 1 until a > a-lim
+        compute array(a) = random() * 100
+    end-perform
+    *> display the array
+    perform varying a from 1 by 1 until a > a-lim
+        display space array(a) with no advancing
+    end-perform
+    display  space 'initial array'
+    *> sort the array
+    move 0 to sorted-len
+    perform varying a from 1 by 1 until a > a-lim
+        *> find the insertion point
+        perform varying s from 1 by 1
+        until s > sorted-len
+        or array(a) <= sorted-array(s)
+            continue
+        end-perform
+        *>open the insertion point
+        perform varying o from sorted-len by -1
+        until o < s
+            compute o1 = o + 1
+            move sorted-array(o) to sorted-array(o1)
+        end-perform
+        *> move the array-entry to the insertion point
+        move array(a) to sorted-array(s)
+        add 1 to sorted-len
+    end-perform
+    *> display the sorted array
+    perform varying s from 1 by 1 until s > sorted-lim
+        display space sorted-array(s) with no advancing
+    end-perform
+    display space 'sorted array'
+    stop run
+    .
+end program insertionsort.</lang>
+{{out}}
+<pre>
+prompt$ cobc -xj insertionsort.cob
+04 86 32 65 62 83 75 24 69 initial array
+24 32 62 65 69 75 83 86 89 sorted array</pre>
 =={{header|Common Lisp}}==