求SAS大牛，，，，，，

1. data _null_;
   
2. 
   
3. array a [-100000 : 100000] _temporary_ ;
   
4. 
   
5. ** allocate sample array with random numbers, about 10 percent duplicate ;
   
6. 
   
7. do _q = lbound (a) to hbound (a) ;
   
8. 
   
9. a [_q] = ceil (ranuni (1) * 2000000) ;
   
10. 
    
11. end ;
    
12. 
    
13. ** set sort parameters ;
    
14. 
    
15. seq = ‘A’ ; * A = ascending, D = descending ;
    
16. 
    
17. nodupkey = 0 ; * 0 = duplicates allowed, 1 = duplicates not allowed ;
    
18. 
    
19. dcl hash _hh (hashexp: 0, ordered: seq) ;
    
20. 
    
21. dcl hiter _hi (‘_hh’ ) ;
    
22. 
    
23. _hh.definekey (‘_k’, ‘_n’ ) ; * _n – extra enumerating key ;
    
24. 
    
25. _hh.definedata (‘_k’ ) ; * _k automatically assumes array data type ;
    
26. 
    
27. _hh.definedone ( ) ;
    
28. 
    
29. ** load composite (_k _n) key on the table ;
    
30. 
    
31. ** if duplicates to be retained, set 0 <- _n ;
    
32. 
    
33. do _j = lbound (a) to hbound (a) ;
    
34. 
    
35. _n = _j * ^ nodupkey ;
    
36. 
    
37. _k = a [_j] ;
    
38. 
    
39. _hh.replace() ;
    
40. 
    
41. end ;
    
42. 
    
43. ** use iterator HI to reload array from HH table, now in order ;
    
44. 
    
45. _n = lbound (a) – 1 ;
    
46. 
    
47. do _rc = _hi.first() by 0 while ( _rc = 0 ) ;
    
48. 
    
49. _n = _n + 1 ;
    
50. 
    
51. a [_n] = _k ;
    
52. 
    
53. _rc = _hi.next() ;
    
54. 
    
55. end ;
    
56. 
    
57. _q = _n ;
    
58. 
    
59. ** fill array tail with missing values if duplicates are delete ;
    
60. 
    
61. do _n = _q + 1 to hbound (a) ;
    
62. 
    
63. a [_n] = . ;
    
64. 
    
65. end ;
    
66. 
    
67. drop _: ; * drop auxiliary variables ;
    
68. 
    
69. ** check if array is now sorted ;
    
70. 
    
71. sorted = 1 ;
    
72. 
    
73. do _n = lbound (a) + 1 to _q while ( sorted ) ;
    
74. 
    
75. if a [_n - 1] > a [_n] then sorted = 0 ;
    
76. 
    
77. end ;
    
78. 
    
79. put sorted = ;
    
80. 
    
81. run ;

复制代码

上面代码是SAS HASH文献搜来的，没看明白，求高人解答！！！

因为在SAS里，_null_和_temporary_都不会被显示出来，所以，我对原程序稍做了一点修改：

1. data chk;*_null_;
   
2.    array a [-100000 : 100000];*_temporary_;
   
3. 
   
4.    ** allocate sample array with random numbers, about 10 percent duplicate，给array赋予随机数值;
   
5.    do _q = lbound (a) to hbound (a);
   
6.       a [_q] = ceil (ranuni (1) * 2000000);
   
7.    end;
   
8. 
   
9.    ** set sort parameters;
   
10.    seq = 'A'; * A = ascending(由小到大), D = descending(由大到小);
    
11.    nodupkey = 0; * 0 = duplicates allowed(允许有重复), 1 = duplicates not allowed(不允许有重复);
    
12.    dcl hash _hh (hashexp: 0, ordered: seq) ;*建立 hash table;
    
13.    dcl hiter _hi ('_hh');
    
14.    _hh.definekey ('_k', '_n'); * _n – extra enumerating key;
    
15.    _hh.definedata ('_k'); * _k automatically assumes array data type;
    
16.    _hh.definedone ( );
    
17. 
    
18.    ** load composite (_k _n) key on the table;*将array a里的随机数值，引入到hash table里的_k, _n内;
    
19.    ** if duplicates to be retained, set 0 <- _n;
    
20.    do _j = lbound (a) to hbound (a);
    
21.       _n = _j * ^ nodupkey;
    
22.       _k = a [_j];
    
23.       _hh.replace();
    
24.    end;
    
25. 
    
26.    ** use iterator HI to reload array from HH table, now in order;*排序！;
    
27.    _n = lbound (a) - 1;
    
28.    do _rc = _hi.first() by 0 while ( _rc = 0 );
    
29.       _n = _n + 1;
    
30.       a [_n] = _k;
    
31.       _rc = _hi.next();
    
32.    end ;
    
33.    _q = _n;
    
34. 
    
35.    ** fill array tail with missing values if duplicates are delete;*重复删减者给予missing values;
    
36.    do _n = _q + 1 to hbound (a);
    
37.       a [_n] = .;
    
38.    end ;
    
39. 
    
40.    *drop _:; * drop auxiliary variables: _j, _k, _n, _q, _rc等变量;
    
41. 
    
42.    ** check if array is now sorted;*假定都已sort，并标记为1！;
    
43.    sorted = 1;
    
44. 
    
45.    do _n = lbound (a) + 1 to _q while ( sorted );
    
46.       if a [_n - 1] > a [_n] then sorted = 0 ;*检测是否已经排序，并最后标记！如果有按由小到大未排序好的，就标为0;
    
47.    end;
    
48.    put sorted=;*打印显示出结果;
    
49. proc print data=chk(obs=200);run;

复制代码

加上原程序内的注释，我想一般人大概应该可以看到原程序的用意和真相了：
１。先建立一个临时array叫_temporary_。
２。然后，给array赋予随机数值。
３。这个程序里，大概一般人不太熟悉的就是这第三部分的hash table的用法！如果有谁对此不很清楚，劳驾，请先阅读一下有关SAS hash table的内容和用法了！然后，再参看原程序中的英文注释！
４。之所以在此用hash table，我想或是为了快速方便下面的sort，因为hash table的方法里具有排序功能，简便易用？或是同时演示一下如何应用hash table吧？
５。当sorting结束，进行一下检测，然后，打印出检测结果来验证是否已sort，sort=1意思是已sort好，nodupkey=0意思是：允许有重复！
６。整个程序执行结束。

哥们你太给力了，

实际上我是希望你帮我讲解讲解declare hiter的用法，