home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk1.iso / altsrc / articles / 11363 < prev    next >
Text File  |  1994-10-18  |  4KB  |  110 lines
  1. Path: wupost!udel!news.mathworks.com!news.kei.com!yeshua.marcam.com!usc!howland.reston.ans.net!pipex!sunic!news.kth.se!admin.kth.se!merope.saaf.se!electra.saaf.se!not-for-mail
  2. From: pausch@electra.saaf.se (Paul Schlyter)
  3. Newsgroups: alt.sources
  4. Subject: Re: Ugly code.
  5. Date: 18 Oct 1994 05:56:37 +0100
  6. Organization: Svensk Amat|rAstronomisk F|rening
  7. Lines: 98
  8. Message-ID: <37vki5$8el@electra.saaf.se>
  9. References: <CxtEys.DKr@cs.dal.ca>
  10. NNTP-Posting-Host: electra.saaf.se
  11.  
  12. In article <CxtEys.DKr@cs.dal.ca>,
  13. Steve Franklin <franklin@ug.cs.dal.ca> wrote:
  14. > This is some code for a solid-state assignment which computes the number
  15. > of neighbors from a central atom that are sqrt(1), sqrt(2), etc... away
  16. > from the central atom. Anyone able to make itany more compact or ugly?
  17. > It needs the math library, and it's ansi C. 
  18. > 
  19. > #include<stdio.h>
  20. > #include<math.h>
  21. > typedef float f;typedef int Y;f p(f a,f b,f c){return sqrt(a*a+b*b+c*c);}
  22. > f a,b,c;main(){Y i,j,k,X[9],n,V[9]={1,2,3,4,5,6,8,9,12};for(n=0;n<9;n++)
  23. > {X[n]=0;}for(i=-2;i<3;i++)for(j=-2;j<3;j++)for(k=-2;k<3;k++){{{a=(f)i;b=(f)j;
  24. > c=(f)k;for(n=0;n<9;n++){if(p(a,b,c)==(f)sqrt(V[n])){X[n]++;}}}}}for(n=0;n<9;
  25. > n++){printf("N=%-2d #=%d\n",V[n],X[n]);}}
  26.  
  27.  
  28. What about this?  It's not more compact, but certainly more ugly!
  29.  
  30. #include<stdio.h>
  31. #include<math.h>
  32. #define ___ typedef 
  33. #defile main float
  34. #define _ f
  35. #define __ for
  36. #define _____ printf
  37. #define ____ main
  38. #define ______ float
  39. #define _______ int
  40. #define ________ return
  41. #define OO sqrt
  42. #define O0 Y
  43. #define OOO X
  44. #define OO0 V
  45. #define O0O if
  46. #define O00 ,
  47. #define OOOO ;
  48. #define OOO0 (
  49. #define OO0O )
  50. #define OO00 {
  51. #define O0OO }
  52. #define O0O0 [
  53. #define O00O ]
  54. #define O000 "N=%-2d #=%d\n"
  55. #define I    1
  56. #define II   2
  57. #define III  3
  58. #define IV   4
  59. #define V    5
  60. #define VI   6
  61. #define VII  7
  62. #define VIII 8
  63. #define IX   9
  64. #define X    10
  65. #define XI   11
  66. #define XII  12
  67. #define o    a
  68. #define oo   b
  69. #define ooo  c
  70. #define oooo *
  71. #define ooooo +
  72. #define oooooo ++
  73. #define ooooooo n
  74. #define oooooooo j
  75. #define ooooooooo k
  76. #define oooooooooo -
  77. #define ooooooooooo =
  78. #define oooooooooooo ==
  79. #define ooooooooooooo i
  80. #define oooooooooooooo <
  81. #define ooooooooooooooo p
  82.  
  83. ___ ______ _ OOOO ___ _______ O0 OOOO _ ooooooooooooooo OOO0 _ o O0O
  84. _ oo O0O _ ooo OO0O OO00 ________ OO OOO0 o oooo o ooooo oo oooo oo
  85. ooooo ooo oooo ooo OO0O OOOO O0OO _ o O0O oo O0O ooo OOOO ____ OOO0
  86. OO0O OO00 O0 ooooooooooooo O0O oooooooo O0O ooooooooo O0O OOO O0O0 IX
  87. O00O O0O ooooooo O0O OO0 O0O0 IX O00O ooooooooooo OO00 I O0O II O0O
  88. III O0O IV O0O V O0O VI O0O VIII O0O IX O0O XII O0OO OOOO __ OOO0
  89. ooooooo ooooooooooo 0 OOOO ooooooo oooooooooooooo IX OOOO ooooooo
  90. oooooo OO0O OO00 OOO O0O0 ooooooo O00O ooooooooooo 0 OOOO O0OO __
  91. OOO0 ooooooooooooo ooooooooooo oooooooooo II OOOO ooooooooooooo
  92. oooooooooooooo III OOOO ooooooooooooo oooooo OO0O __ OOO0 oooooooo
  93. ooooooooooo oooooooooo II OOOO oooooooo oooooooooooooo III OOOO
  94. oooooooo oooooo OO0O __ OOO0 ooooooooo ooooooooooo oooooooooo II OOOO
  95. ooooooooo oooooooooooooo III OOOO ooooooooo oooooo OO0O OO00 OO00
  96. OO00 o ooooooooooo OOO0 _ OO0O ooooooooooooo OOOO oo ooooooooooo OOO0
  97. _ OO0O oooooooo OOOO ooo ooooooooooo OOO0 _ OO0O ooooooooo OOOO __
  98. OOO0 ooooooo ooooooooooo 0 OOOO ooooooo oooooooooooooo IX OOOO
  99. ooooooo oooooo OO0O OO00 O0O OOO0 ooooooooooooooo OOO0 o O0O oo O0O
  100. ooo OO0O oooooooooooo OOO0 _ OO0O OO OOO0 OO0 O0O0 ooooooo O00O OO0O
  101. OO0O OO00 OOO O0O0 ooooooo O00O oooooo OOOO O0OO O0OO O0OO O0OO O0OO
  102. __ OOO0 ooooooo ooooooooooo 0 OOOO ooooooo oooooooooooooo IX OOOO
  103. ooooooo oooooo OO0O OO00 _____ OOO0 O000 O0O OO0 O0O0 ooooooo O00O
  104. O0O OOO O0O0 ooooooo O00O OO0O OOOO O0OO O0OO 
  105. -- 
  106. ----------------------------------------------------------------
  107. Paul Schlyter,  SAAF (Swedish Amateur Astronomer's Society)
  108. Nybrogatan 75 A,  S-114 40 Stockholm,  Sweden
  109. InterNet:  pausch@saaf.se       psr@ausys.se
  110.