Új hozzászólás Aktív témák

• #57039 emvy félisten FehérHolló #57038

  Új Válasz 2014-05-15 22:24:03 #57039

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  emvy

  félisten

  válasz FehérHolló #57038 üzenetére

  A szokasos pelda, qsort C vs. Haskell:

  void qsort(int a[], int lo, int hi)
  {
  int h, l, p, t;
  
  if (lo < hi) {
  l = lo;
  h = hi;
  p = a[hi];
  
  do {
  while ((l < h) && (a[l] <= p))
  l = l+1;
  while ((h > l) && (a[h] >= p))
  h = h-1;
  if (l < h) {
  t = a[l];
  a[l] = a[h];
  a[h] = t;
  }
  } while (l < h);
  
  a[hi] = a[l];
  a[l] = p;
  
  qsort( a, lo, l-1 );
  qsort( a, l+1, hi );
  }
  }

  ------------------

  qsort:: Ord a => [a] -> [a]
  qsort[] = []
  qsort(p:xs) = (qsort lesser) ++ [p] ++ (qsort greater)
  where
  lesser = filter (< p) xs
  greater = filter (>= p) xs

  Van, aki szerint az elso erthetobb, szerintem nem.

Új hozzászólás Aktív témák