Sort a list of object identifiers: Difference between revisions

From Rosetta Code
Content added Content deleted
m (→‎{{header|zkl}}: fix link)
(Added Lua version)
Line 108: Line 108:


We also pull the result out of its boxes for display purposes.
We also pull the result out of its boxes for display purposes.

=={{header|Lua}}==
Using the in-built table.sort with a custom compare function.
<lang Lua>local OIDs = {
".1.3.6.1.4.1.11.2.17.19.3.4.0.10",
".1.3.6.1.4.1.11150.3.4.0.2",
".1.3.6.1.4.1.11.2.17.19.3.4.0.19",
".1.3.6.1.4.1.11150.3.4.0.1",
".1.3.6.1.4.1.11.2.17.19.3.4.0.22",
".1.3.6.1.4.1.11.2.17.19.3.4.0.2",
".1.3.6.1.4.1.11150.3.4.0.11",
".1.3.6.1.4.1.11.2.17.19.3.4.0.1",
".1.3.6.1.4.1.11.2.17.3773.0.2",
".1.3.6.1.4.1.11.2.17.19.2.0.79",
".1.3.6.1.4.1.11150.3.4.0.21",
".1.3.6.1.4.1.11.2.17.19.2.0.9",
".1.3.6.1.4.1.11.2.17.19.3.4.0.25",
".1.3.6.1.4.1.11.2.17.19.3.4.0.32",
".1.3.6.1.4.1.11.2.17.19.3.4.0.4",
".1.3.6.1.4.1.11.2.17.19.3.4.0.31",
".1.3.6.1.4.1.11.2.17.19.3.4.0.3",
".1.3.6.1.4.1.11.2.17.3773.0.1"
}

function compare (a, b)
local aList, bList, Na, Nb = {}, {}
for num in a:gmatch("%d+") do table.insert(aList, num) end
for num in b:gmatch("%d+") do table.insert(bList, num) end
for i = 1, math.max(#aList, #bList) do
Na, Nb = tonumber(aList[i]), tonumber(bList[i])
if Na ~= Nb then return Na < Nb end
end
end

table.sort(OIDs, compare)
table.foreach(OIDs, print)</lang>
{{out}}
<pre>1 .1.3.6.1.4.1.11.2.17.19.2.0.9
2 .1.3.6.1.4.1.11.2.17.19.2.0.79
3 .1.3.6.1.4.1.11.2.17.19.3.4.0.1
4 .1.3.6.1.4.1.11.2.17.19.3.4.0.2
5 .1.3.6.1.4.1.11.2.17.19.3.4.0.3
6 .1.3.6.1.4.1.11.2.17.19.3.4.0.4
7 .1.3.6.1.4.1.11.2.17.19.3.4.0.10
8 .1.3.6.1.4.1.11.2.17.19.3.4.0.19
9 .1.3.6.1.4.1.11.2.17.19.3.4.0.22
10 .1.3.6.1.4.1.11.2.17.19.3.4.0.25
11 .1.3.6.1.4.1.11.2.17.19.3.4.0.31
12 .1.3.6.1.4.1.11.2.17.19.3.4.0.32
13 .1.3.6.1.4.1.11.2.17.3773.0.1
14 .1.3.6.1.4.1.11.2.17.3773.0.2
15 .1.3.6.1.4.1.11150.3.4.0.1
16 .1.3.6.1.4.1.11150.3.4.0.2
17 .1.3.6.1.4.1.11150.3.4.0.11
18 .1.3.6.1.4.1.11150.3.4.0.21</pre>


=={{header|Perl}}==
=={{header|Perl}}==

Revision as of 14:58, 8 July 2016

Sort a list of object identifiers is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

Sort by OID numbers.

OID - Object Identifiers are used in Network data These numbers can vary in length, and have a dot "." between them. The individual number can be of different number of digits also.

Example: 

======================================
INPUT

@arrayOID = 
(
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.10",
  ".1.3.6.1.4.1.11150.3.4.0.2",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.19",
  ".1.3.6.1.4.1.11150.3.4.0.1",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.22",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.2",
  ".1.3.6.1.4.1.11150.3.4.0.11",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.1",
  ".1.3.6.1.4.1.11.2.17.3773.0.2",
  ".1.3.6.1.4.1.11.2.17.19.2.0.79",
  ".1.3.6.1.4.1.11150.3.4.0.21",
  ".1.3.6.1.4.1.11.2.17.19.2.0.9",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.25",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.32",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.4",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.31",
  ".1.3.6.1.4.1.11.2.17.19.3.4.0.3",
  ".1.3.6.1.4.1.11.2.17.3773.0.1"
);

========================================
OUTPUT - Correctly Sorted

# 01 | .1.3.6.1.4.1.11.2.17.19.2.0.9 |
# 02 | .1.3.6.1.4.1.11.2.17.19.2.0.79 |
# 03 | .1.3.6.1.4.1.11.2.17.19.3.4.0.1 |
# 04 | .1.3.6.1.4.1.11.2.17.19.3.4.0.2 |
# 05 | .1.3.6.1.4.1.11.2.17.19.3.4.0.3 |
# 06 | .1.3.6.1.4.1.11.2.17.19.3.4.0.4 |
# 07 | .1.3.6.1.4.1.11.2.17.19.3.4.0.10 |
# 08 | .1.3.6.1.4.1.11.2.17.19.3.4.0.19 |
# 09 | .1.3.6.1.4.1.11.2.17.19.3.4.0.22 |
# 10 | .1.3.6.1.4.1.11.2.17.19.3.4.0.25 |
# 11 | .1.3.6.1.4.1.11.2.17.19.3.4.0.31 |
# 12 | .1.3.6.1.4.1.11.2.17.19.3.4.0.32 |
# 13 | .1.3.6.1.4.1.11.2.17.3773.0.1 |
# 14 | .1.3.6.1.4.1.11.2.17.3773.0.2 |
# 15 | .1.3.6.1.4.1.11150.3.4.0.1 |
# 16 | .1.3.6.1.4.1.11150.3.4.0.2 |
# 17 | .1.3.6.1.4.1.11150.3.4.0.11 |
# 18 | .1.3.6.1.4.1.11150.3.4.0.21 |


J

Data:

<lang J>oids=:<@-.&' ';._2]0 :0 

 .1.3.6.1.4.1.11.2.17.19.3.4.0.10
 .1.3.6.1.4.1.11150.3.4.0.2
 .1.3.6.1.4.1.11.2.17.19.3.4.0.19
 .1.3.6.1.4.1.11150.3.4.0.1
 .1.3.6.1.4.1.11.2.17.19.3.4.0.22
 .1.3.6.1.4.1.11.2.17.19.3.4.0.2
 .1.3.6.1.4.1.11150.3.4.0.11
 .1.3.6.1.4.1.11.2.17.19.3.4.0.1
 .1.3.6.1.4.1.11.2.17.3773.0.2
 .1.3.6.1.4.1.11.2.17.19.2.0.79
 .1.3.6.1.4.1.11150.3.4.0.21
 .1.3.6.1.4.1.11.2.17.19.2.0.9
 .1.3.6.1.4.1.11.2.17.19.3.4.0.25
 .1.3.6.1.4.1.11.2.17.19.3.4.0.32
 .1.3.6.1.4.1.11.2.17.19.3.4.0.4
 .1.3.6.1.4.1.11.2.17.19.3.4.0.31
 .1.3.6.1.4.1.11.2.17.19.3.4.0.3
 .1.3.6.1.4.1.11.2.17.3773.0.1

)</lang>

In other words, for each line in that script, remove the spaces and put the rest in a box.

Sorting:

<lang J> >(/: __&".;._1&.>) oids .1.3.6.1.4.1.11.2.17.19.2.0.9 .1.3.6.1.4.1.11.2.17.19.2.0.79 .1.3.6.1.4.1.11.2.17.19.3.4.0.1 .1.3.6.1.4.1.11.2.17.19.3.4.0.2 .1.3.6.1.4.1.11.2.17.19.3.4.0.3 .1.3.6.1.4.1.11.2.17.19.3.4.0.4 .1.3.6.1.4.1.11.2.17.19.3.4.0.10 .1.3.6.1.4.1.11.2.17.19.3.4.0.19 .1.3.6.1.4.1.11.2.17.19.3.4.0.22 .1.3.6.1.4.1.11.2.17.19.3.4.0.25 .1.3.6.1.4.1.11.2.17.19.3.4.0.31 .1.3.6.1.4.1.11.2.17.19.3.4.0.32 .1.3.6.1.4.1.11.2.17.3773.0.1 .1.3.6.1.4.1.11.2.17.3773.0.2 .1.3.6.1.4.1.11150.3.4.0.1 .1.3.6.1.4.1.11150.3.4.0.2 .1.3.6.1.4.1.11150.3.4.0.11 .1.3.6.1.4.1.11150.3.4.0.21 </lang>

In other words, for our sort key, we break the contents of each box by the initial character and treat the remainder as numbers.

We also pull the result out of its boxes for display purposes.

Lua

Using the in-built table.sort with a custom compare function. <lang Lua>local OIDs = { 

 ".1.3.6.1.4.1.11.2.17.19.3.4.0.10",
 ".1.3.6.1.4.1.11150.3.4.0.2",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.19",
 ".1.3.6.1.4.1.11150.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.22",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.2",
 ".1.3.6.1.4.1.11150.3.4.0.11",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.3773.0.2",
 ".1.3.6.1.4.1.11.2.17.19.2.0.79",
 ".1.3.6.1.4.1.11150.3.4.0.21",
 ".1.3.6.1.4.1.11.2.17.19.2.0.9",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.25",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.32",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.4",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.31",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.3",
 ".1.3.6.1.4.1.11.2.17.3773.0.1"

}

function compare (a, b) 

   local aList, bList, Na, Nb = {}, {}
   for num in a:gmatch("%d+") do table.insert(aList, num) end
   for num in b:gmatch("%d+") do table.insert(bList, num) end
   for i = 1, math.max(#aList, #bList) do
       Na, Nb = tonumber(aList[i]), tonumber(bList[i])
       if Na ~= Nb then return Na < Nb end
   end

end

table.sort(OIDs, compare) table.foreach(OIDs, print)</lang>

Output:
1       .1.3.6.1.4.1.11.2.17.19.2.0.9
2       .1.3.6.1.4.1.11.2.17.19.2.0.79
3       .1.3.6.1.4.1.11.2.17.19.3.4.0.1
4       .1.3.6.1.4.1.11.2.17.19.3.4.0.2
5       .1.3.6.1.4.1.11.2.17.19.3.4.0.3
6       .1.3.6.1.4.1.11.2.17.19.3.4.0.4
7       .1.3.6.1.4.1.11.2.17.19.3.4.0.10
8       .1.3.6.1.4.1.11.2.17.19.3.4.0.19
9       .1.3.6.1.4.1.11.2.17.19.3.4.0.22
10      .1.3.6.1.4.1.11.2.17.19.3.4.0.25
11      .1.3.6.1.4.1.11.2.17.19.3.4.0.31
12      .1.3.6.1.4.1.11.2.17.19.3.4.0.32
13      .1.3.6.1.4.1.11.2.17.3773.0.1
14      .1.3.6.1.4.1.11.2.17.3773.0.2
15      .1.3.6.1.4.1.11150.3.4.0.1
16      .1.3.6.1.4.1.11150.3.4.0.2
17      .1.3.6.1.4.1.11150.3.4.0.11
18      .1.3.6.1.4.1.11150.3.4.0.21

Perl

<lang perl>

  1. !/usr/bin/perl
      1. --------------------------
      2. Sort: -OID - Numeric
      3. Bert Mariani 2016-07-07
      4. --------------------------

@arrayOID = () ; @arrayOIDSorted = () ;

@arrayOID = ( 

 ".1.3.6.1.4.1.11.2.17.19.3.4.0.10",
 ".1.3.6.1.4.1.11150.3.4.0.2",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.19",
 ".1.3.6.1.4.1.11150.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.22",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.2",
 ".1.3.6.1.4.1.11150.3.4.0.11",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.3773.0.2",
 ".1.3.6.1.4.1.11.2.17.19.2.0.79",
 ".1.3.6.1.4.1.11150.3.4.0.21",
 ".1.3.6.1.4.1.11.2.17.19.2.0.9",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.25",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.32",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.4",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.31",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.3",
 ".1.3.6.1.4.1.11.2.17.3773.0.1"

); 

### One big long line ... made readable
@arrayOIDSorted =                                                       
        map { $_->[0] }                                                     
              sort { $a->[1] cmp $b->[1] }                                    
                     map { [ $_,                                                  
                             join , map { sprintf("%8d",$_) } 
                             split( /\./, $_) 
                           ] 
                         } 
                     @arrayOID;      



   print "\nAfter OID Sort \n\n";
   $ptrN  = 0;   
   $entry = 1;

   while ( $arrayOIDSorted[$ptrN] )
   { 
      print "$entry | $arrayOIDSorted[$ptrN] |\n" ;
      $entry++;
      $ptrN++;
   }

   print "\nEnd OID Sort \n\n";
      1. =========================================
  3. After OID Sort
  5. 1 | .1.3.6.1.4.1.11.2.17.19.2.0.9 |
  6. 2 | .1.3.6.1.4.1.11.2.17.19.2.0.79 |
  7. 3 | .1.3.6.1.4.1.11.2.17.19.3.4.0.1 |
  8. 4 | .1.3.6.1.4.1.11.2.17.19.3.4.0.2 |
  9. 5 | .1.3.6.1.4.1.11.2.17.19.3.4.0.3 |
  10. 6 | .1.3.6.1.4.1.11.2.17.19.3.4.0.4 |
  11. 7 | .1.3.6.1.4.1.11.2.17.19.3.4.0.10 |
  12. 8 | .1.3.6.1.4.1.11.2.17.19.3.4.0.19 |
  13. 9 | .1.3.6.1.4.1.11.2.17.19.3.4.0.22 |
  14. 10 | .1.3.6.1.4.1.11.2.17.19.3.4.0.25 |
  15. 11 | .1.3.6.1.4.1.11.2.17.19.3.4.0.31 |
  16. 12 | .1.3.6.1.4.1.11.2.17.19.3.4.0.32 |
  17. 13 | .1.3.6.1.4.1.11.2.17.3773.0.1 |
  18. 14 | .1.3.6.1.4.1.11.2.17.3773.0.2 |
  19. 15 | .1.3.6.1.4.1.11150.3.4.0.1 |
  20. 16 | .1.3.6.1.4.1.11150.3.4.0.2 |
  21. 17 | .1.3.6.1.4.1.11150.3.4.0.11 |
  22. 18 | .1.3.6.1.4.1.11150.3.4.0.21 |
  24. End OID Sort
  25. ===========================================

</lang>

Perl 6

Translation of: Perl

<lang perl6>use v6;

.say for sort { $^oid.comb(/\d+/).fmt('%08d') }, < 

   .1.3.6.1.4.1.11.2.17.19.3.4.0.10
   .1.3.6.1.4.1.11150.3.4.0.2
   .1.3.6.1.4.1.11.2.17.19.3.4.0.19
   .1.3.6.1.4.1.11150.3.4.0.1
   .1.3.6.1.4.1.11.2.17.19.3.4.0.22
   .1.3.6.1.4.1.11.2.17.19.3.4.0.2
   .1.3.6.1.4.1.11150.3.4.0.11
   .1.3.6.1.4.1.11.2.17.19.3.4.0.1
   .1.3.6.1.4.1.11.2.17.3773.0.2
   .1.3.6.1.4.1.11.2.17.19.2.0.79
   .1.3.6.1.4.1.11150.3.4.0.21
   .1.3.6.1.4.1.11.2.17.19.2.0.9
   .1.3.6.1.4.1.11.2.17.19.3.4.0.25
   .1.3.6.1.4.1.11.2.17.19.3.4.0.32
   .1.3.6.1.4.1.11.2.17.19.3.4.0.4
   .1.3.6.1.4.1.11.2.17.19.3.4.0.31
   .1.3.6.1.4.1.11.2.17.19.3.4.0.3
   .1.3.6.1.4.1.11.2.17.3773.0.1

>;</lang>

Output:
.1.3.6.1.4.1.11.2.17.19.2.0.9
.1.3.6.1.4.1.11.2.17.19.2.0.79
.1.3.6.1.4.1.11.2.17.19.3.4.0.1
.1.3.6.1.4.1.11.2.17.19.3.4.0.2
.1.3.6.1.4.1.11.2.17.19.3.4.0.3
.1.3.6.1.4.1.11.2.17.19.3.4.0.4
.1.3.6.1.4.1.11.2.17.19.3.4.0.10
.1.3.6.1.4.1.11.2.17.19.3.4.0.19
.1.3.6.1.4.1.11.2.17.19.3.4.0.22
.1.3.6.1.4.1.11.2.17.19.3.4.0.25
.1.3.6.1.4.1.11.2.17.19.3.4.0.31
.1.3.6.1.4.1.11.2.17.19.3.4.0.32
.1.3.6.1.4.1.11.2.17.3773.0.1
.1.3.6.1.4.1.11.2.17.3773.0.2
.1.3.6.1.4.1.11150.3.4.0.1
.1.3.6.1.4.1.11150.3.4.0.2
.1.3.6.1.4.1.11150.3.4.0.11
.1.3.6.1.4.1.11150.3.4.0.21

zkl

Translation of http://rosettacode.org/wiki/Natural_sorting#zkl

Basically, blow apart each line into a list of numbers and sort that. <lang zkl>fcn sortOIDS(oids){ 

  oids:=oids.pump(List(),fcn(oid){ oid[1,*].split(".").apply("toInt") });
  oids.sort(  // in place sort
     fcn(a,b){ // a&b are (x,y,z,...), eg (0,4,2,54)

a.zip(b).reduce(fcn(_,[(a,b)]){ if(a==b)return(True); // continue to next field return(Void.Stop,a<b); },True); 

     });
  oids.pump(List,fcn(a,b,c,etc){ "."+vm.arglist[0].concat(".") }) // back to strings

}</lang> <lang zkl>oids:=List( 

 ".1.3.6.1.4.1.11.2.17.19.3.4.0.10",
 ".1.3.6.1.4.1.11150.3.4.0.2",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.19",
 ".1.3.6.1.4.1.11150.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.22",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.2",
 ".1.3.6.1.4.1.11150.3.4.0.11",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.1",
 ".1.3.6.1.4.1.11.2.17.3773.0.2",
 ".1.3.6.1.4.1.11.2.17.19.2.0.79",
 ".1.3.6.1.4.1.11150.3.4.0.21",
 ".1.3.6.1.4.1.11.2.17.19.2.0.9",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.25",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.32",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.4",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.31",
 ".1.3.6.1.4.1.11.2.17.19.3.4.0.3",
 ".1.3.6.1.4.1.11.2.17.3773.0.1");

sortOIDS(oids).pump(Console.println);</lang>

Output:
.1.3.6.1.4.1.11.2.17.19.2.0.9
.1.3.6.1.4.1.11.2.17.19.2.0.79
.1.3.6.1.4.1.11.2.17.19.3.4.0.1
.1.3.6.1.4.1.11.2.17.19.3.4.0.2
.1.3.6.1.4.1.11.2.17.19.3.4.0.3
.1.3.6.1.4.1.11.2.17.19.3.4.0.4
.1.3.6.1.4.1.11.2.17.19.3.4.0.10
.1.3.6.1.4.1.11.2.17.19.3.4.0.19
.1.3.6.1.4.1.11.2.17.19.3.4.0.22
.1.3.6.1.4.1.11.2.17.19.3.4.0.25
.1.3.6.1.4.1.11.2.17.19.3.4.0.31
.1.3.6.1.4.1.11.2.17.19.3.4.0.32
.1.3.6.1.4.1.11.2.17.3773.0.1
.1.3.6.1.4.1.11.2.17.3773.0.2
.1.3.6.1.4.1.11150.3.4.0.1
.1.3.6.1.4.1.11150.3.4.0.2
.1.3.6.1.4.1.11150.3.4.0.11
.1.3.6.1.4.1.11150.3.4.0.21
Retrieved from "https://rosettacode.org/wiki/Sort_a_list_of_object_identifiers?oldid=268837"