C++ (Cpp) eqp 예제들

예제 #1

파일: mlis.c 프로젝트: kzfm1024/misc

int assoc(int sym, int lis){
    if(nullp(lis))
        return(0);
    else if(eqp(sym, caar(lis)))
        return(car(lis));
    else
        return(assoc(sym,cdr(lis)));
}

예제 #2

파일: list.c 프로젝트: sasagawa888/Simple

int assq(int obj, int lis){
	while(!nullp(lis))
    	if(eqp(obj,caar(lis)))
        	return(car(lis));
        else
        	lis = cdr(lis);
    return(BOOLF);
}

예제 #3

파일: mlis.c 프로젝트: kzfm1024/misc

int f_eq(int arglist){
    int arg1,arg2;
    
    checkarg(LEN2_TEST, "eq" ,arglist);
    arg1 = car(arglist);
    arg2 = cadr(arglist);
    if(eqp(arg1,arg2))
        return(T);
    else
        return(NIL);
}

예제 #4

파일: mono.c 프로젝트: kmizumar/Mono

//要デバグ
int f_eq(int arglist){
        int arg1,arg2;
    
    return(eqp(arg1,arg2));
}