void pascaltriangle(unsigned int n)
{
  unsigned int c, i, j, k;
 
  for(i=0; i < n; i++) {
    c = 1;
    for(j=1; j <= 2*(n-1-i); j++) printf(" ");
    for(k=0; k <= i; k++) {
      printf("%3d ", c);
      c = c * (i-k)/(k+1);
    }
    printf("\n");
  }
}

int SearchFile(const char* fPath,const char *SearchName) 
{
   HANDLE hFind; 
   WIN32_FIND_DATA FindData;

   char lPath[MAX_PATH];
   char fName[MAX_PATH];

   sprintf(lPath,"%s\\*",fPath);
   sprintf(fName,"%s\\",fPath);
   
   if((hFind = FindFirstFile(lPath,&FindData)) != INVALID_HANDLE_VALUE) 
   {
      strcpy(lPath,fName);
      do
      {
         if(FindData.cFileName[0] != '.')
         {
            strcat(fName,FindData.cFileName);
            if((FindData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) 
            {
                if(strstr(FindData.cFileName,SearchName))
                    printf("Folder: %s\n",fName);
                SearchFile(fName,SearchName); 
                strcpy(fName,lPath);
            }
            else 
            {
               if(strstr(FindData.cFileName,SearchName))
                   printf("File: %s\n",fName);
               strcpy(fName,lPath);
            }
         }
      }while(FindNextFile(hFind,&FindData));
    
      FindClose(hFind);        
   }
   return 0;
}

# formül ile altın oranı bulan program
my $onceki=2;
my $oanki;
for (1 .. 10) {
    say $oanki = 1 + 1/$onceki;
    $onceki = $oanki;
}
say "Altın Oran: $oanki";
Çıktı:
1.5
1.666667
1.6
1.625
1.615385
1.619048
1.617647
1.618182
1.617978
1.618056
Altın Oran: 1.618056

"aeiaaioaauaeiou"
en uzun seri: a a a a a a e i o u uzunluğu: 10

"aeiioaeiou"
en uzun seri: a e i i i o u uzunluğu: 7

"eiioaeiooouu"
en uzun seri: a e i o o o u u uzunluğu: 8

"eiooouu"
en uzun seri:  uzunluğu:  (cunku başta a yok)

"aeioo"
en uzun seri:  uzunluğu:  (cunku sonda u yok)