min0.c
Go to the documentation of this file.
00001 /* min0 gives the minimum value of integers
00002 
00003                                     Ver1.0    Apr.12,1988. */
00004 
00005 #include "arith.h"
00006 
00007 int min0(va_alist)
00008 va_dcl
00009 {
00010     va_list ap;
00011     int i,n;
00012     int min,x;
00013 
00014     va_start(ap);
00015 
00016     n=va_arg(ap, int);
00017     min=va_arg(ap, int);
00018 
00019     for(i=0; i<n-1; i++){
00020         x=va_arg(ap, int);
00021         if(x<min)
00022             min=x;
00023     }
00024 
00025     return(min);
00026 
00027     va_end(ap);
00028 }
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Sep 3 2015 10:36:20