home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / sci / math / 9431 < prev    next >
Encoding:
Text File  |  1992-07-22  |  2.0 KB  |  88 lines
  1. Newsgroups: sci.math
  2. Path: sparky!uunet!decwrl!csus.edu!netcomsv!sjsumcs!kellum
  3. From: kellum@sjsumcs.sjsu.edu (Ken Kellum)
  4. Subject: Re: Factorial program...
  5. Message-ID: <1992Jul22.222658.3613@sjsumcs.sjsu.edu>
  6. Organization: San Jose State University - Math/CS Dept.
  7. References: <1992Jul20.160312.10723@infonode.ingr.com>
  8. Date: Wed, 22 Jul 1992 22:26:58 GMT
  9. Lines: 77
  10.  
  11. In article <1992Jul20.160312.10723@infonode.ingr.com> "Vilva Natarajan <vilva@madras.b23b.ingr.COM>" writes:
  12. >Hi,
  13. >
  14. >    I am looking for source code that prints out all the factorial
  15. >    combinations of a set of numbers.
  16. >
  17. > 
  18. >        Eg.
  19. > 
  20. >        factorial combo of 1 2 3 4 would be, (there are 24 of them)
  21. > 
  22. >        1 2 3 4
  23. >        1 2 4 3
  24. >        1 3 2 4
  25. >        1 3 4 2
  26. >        1 4 2 3 
  27. >        1 4 3 2
  28. > 
  29. >        2 1 3 4
  30. >        2 1 4 3
  31. >        2 3 1 4 
  32. >        2 3 4 1
  33. >        2 4 1 3 
  34. >        2 4 3 1
  35. >        
  36. >        3 1 2 4
  37. >        3 1 4 2
  38. >        3 2 1 4 
  39. >        3 2 4 1
  40. >        3 4 1 2
  41. >        3 4 2 1
  42. > 
  43. >        4 1 2 3
  44. >        4 1 3 2
  45. >        4 2 1 3
  46. >        4 2 3 1
  47. >        4 3 1 2
  48. >        4 3 2 1
  49. > 
  50. >
  51. >    Any help would be appreciated. Thanks>
  52. >
  53. >vn
  54.  
  55. The following (pseudo) Pascal procedure prints all the permutations
  56. of a one dimensional array.  It can be modified to do what you want.
  57.  
  58. Procedure Permute (var A : array [1..n] of whatever)
  59.  
  60.    Procedure Inner (i : integer);
  61.   { prints the permutations of a[i] .. a[n] }
  62.    var j : integer
  63.        temp : whatever;
  64.  
  65.    begin
  66.       if i > n then
  67.          writeln(a)
  68.       else 
  69.          for j := i to n do begin
  70.             temp := a[i]; a[i] := a[j]; a[j] := temp;
  71.             Inner (i + 1);
  72.             temp := a[i]; a[i] := a[j]; a[j] := temp;
  73.          end;
  74.     end; { Inner }
  75.  
  76. begin {permute}
  77.    Inner(1);
  78. end;
  79.  
  80. It's an amusing exercise to construct an inductive proof that this
  81. procedure works.
  82.  
  83. Kenneth Kellum
  84. ___________________________________________
  85.  
  86. Those who give up claims of uniqueness only become more unbearable
  87. when they claim to be representative.
  88.