prog.l_ada/main/SC/func.c

#include "head.h"

Stack get(Stack *l, int n) {
  if (n > len(l))
    exit(3);
  int i;
  for (i = 0; i < n; i++) {
    l = l->next;
  }
  return *l;
}

Stack *add_head(Stack *l, double x) {
  if (l == NULL) {
    l = malloc(sizeof(Stack));
    if (l == NULL)
      exit(1);
    l->x = x;
    l->next = NULL;
  }

  if (l->x == 0.0) {
    l->x = x;
    l->next = NULL;
    return l;
  }

  Stack *tmp = malloc(sizeof(Stack));
  if (tmp == NULL)
    exit(1);

  tmp->next = l;
  tmp->x = x;
  return tmp;
}

void stack_print(Stack *l) {
  while (l != NULL) {
    printf("%lF\n", l->x);
    l = l->next;
  }
}

int len(Stack *l) {
  int ans = 0;
  while (l != NULL) {
    ans++;
    l = l->next;
  }
  return ans;
}

Stack *del_head(Stack *l) {
  if (l == NULL)
    return NULL;
  else if (l->next == NULL) {
    free(l);
    l = NULL;
    return NULL;
  }
  Stack *tmp = l->next;
  free(l);
  l = NULL;
  return tmp;
}