後入先出2

因みに、C言語でもスタックを書いてみた。

#include<stdio.h>
#include<stdlib.h>

int p[10];

void push(int a,int *i){
    p[*i+1] = a;
    *i+=1;
}

int pop(int *i){
    int b;

    if( p[*i] == -1 ){
        printf("there is no data...\n");
        exit(1);
    }
    else{
        b = p[*i];
        *i-=1;
        return b;
    }
}

int main(){
    int x,i = 0;

    p[i] = -1;

    push(4,&i);
    x = pop(&i);

    printf("%d",x);

    return 0;
}

配列をグローバル変数にしてるし、安全処置など何も取っていないけれど動作はします。久々にスコープとか参照渡しを考えた笑
Haskellと比べると長く見えるが、Haskell版の汎用性の低さを考えると大体同じくらいになりそうですね