PageRenderTime 44ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/trunk/Examples/tcl/contract/example.c

#
C | 23 lines | 15 code | 5 blank | 3 comment | 2 complexity | b4f27c8b431dd413d130768258723d91 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. /* File : example.c */
    2. 

  2. 

  3. /* A global variable */
    4. 

  4. double Foo = 3.0;
    5. 

  5. 

  6. /* Compute the greatest common divisor of positive integers */
    7. 

  7. int gcd(int x, int y) {
    8. 

  8.   int g;
    9. 

  9.   g = y;
    10. 

  10.   while (x > 0) {
    11. 

  11.     g = x;
    12. 

  12.     x = y % x;
    13. 

  13.     y = g;
    14. 

  14.   }
    15. 

  15.   return g;
    16. 

  16. }
    17. 

  17. 

  18. int fact(int n) {
    19. 

  19.   if (n <= 0) return 1;
    20. 

  20.   return n*fact(n-1);
    21. 

  21. }
    22. 

  22. 

  23. 

  24.