home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / sci / math / 9535 < prev    next >
Encoding:
Internet Message Format  |  1992-07-25  |  2.0 KB
  1. Path: sparky!uunet!wupost!zaphod.mps.ohio-state.edu!malgudi.oar.net!uoft02.utoledo.edu!desire.wright.edu!jmatthews
  2. Newsgroups: sci.math
  3. Subject: Re: Factorial program...
  4. Message-ID: <1992Jul24.162820.3080@desire.wright.edu>
  5. From: jmatthews@desire.wright.edu
  6. Date: 24 Jul 92 16:28:20 EST
  7. References: <1992Jul20.160312.10723@infonode.ingr.com> <1992Jul22.222658.3613@sjsumcs.sjsu.edu>
  8. Organization: Wright State University 
  9. Lines: 45
  10.  
  11. In article <1992Jul22.222658.3613@sjsumcs.sjsu.edu>, kellum@sjsumcs.sjsu.edu (Ken Kellum) writes:
  12. > In article <1992Jul20.160312.10723@infonode.ingr.com> "Vilva Natarajan <vilva@madras.b23b.ingr.COM>" writes:
  13. >>Hi,
  14. >>
  15. >>    I am looking for source code that prints out all the factorial
  16. >>    combinations of a set of numbers.
  17. >> [exampple deleted]
  18.  
  19. > The following (pseudo) Pascal procedure prints all the permutations
  20. > of a one dimensional array.  It can be modified to do what you want.
  21. > 
  22. > Procedure Permute (var A : array [1..n] of whatever)
  23. > 
  24. >    Procedure Inner (i : integer);
  25. >   { prints the permutations of a[i] .. a[n] }
  26. >    var j : integer
  27. >        temp : whatever;
  28. > 
  29. >    begin
  30. >       if i > n then
  31. >          writeln(a)
  32. >       else 
  33. >          for j := i to n do begin
  34. >             temp := a[i]; a[i] := a[j]; a[j] := temp;
  35. >             Inner (i + 1);
  36. >             temp := a[i]; a[i] := a[j]; a[j] := temp;
  37. >          end;
  38. >     end; { Inner }
  39. > 
  40. > begin {permute}
  41. >    Inner(1);
  42. > end;
  43.  
  44. The first time I saw this algorith was in Wirth's _Algorithms_+_Data_
  45. _Structures_=_Programs_. The question was posed as an exercise (3.2)
  46. in a chapter on recursion. The _answer_ appeared in the following
  47. chapter as the (otherwise meaningless) sample output of a cross-
  48. reference generating program.
  49.  
  50. An Easter egg in a textbook:-)
  51.  
  52. o----------------------------------------------------------------------------o
  53. | John B. Matthews, jmatthews@desire.wright.edu, disclaimer:= myViews <> WSU |
  54. | "I'm a commensal .sig virus, indistinguishable from an ordinary organelle."|
  55. o----------------------------------------------------------------------------o
  56.