sequences in GEB

Goedel, Escher, Bach 에 나오는 함수들을 만들어 보았다.

G sequence

#include

#include

#include

int gfunction(int);

int main(int argc, char* argv[])

{

int i;

if (argc==1){

printf(“Error. There are no options.\n”);

exit(1);

}

i=atoi(argv[1]);

printf(“%d”,gfunction(i));

}

int gfunction(int i)

{

if (i<0) {
printf(“Error. Parameter is negative.\n”);

}

else if (i==0) {

return 0;

}

else {

return (i-gfunction(gfunction(i-1)));

}

}

H sequence

#include

#include

#include

int hfunction(int);

int main(int argc, char* argv[])

{

int i;

if (argc==1){

printf(“Error. There are no options.\n”);

exit(1);

}

i=atoi(argv[1]);

printf(“%d”,hfunction(i));

}

int hfunction(int i)

{

if (i<0) {
printf(“Error. Parameter is negative.\n”);

}

else if (i==0) {

return 0;

}

else {

return (i-hfunction(hfunction(hfunction(i-1))));

}

}

M and F sequence

#include

#include

#include

int mfunction(int);

int ffunction(int);

int main(int argc, char* argv[])

{

int i;

if (argc==1){

printf(“Error. There are no options.\n”);

exit(1);

}

i=atoi(argv[1]);

printf(“%d\n”,mfunction(i));

printf(“%d\n”,ffunction(i));

}

int mfunction(int i)

{

if (i<0) {
printf(“Error. Parameter is negative.\n”);

}

else if (i==0) {

return 0;

}

else {

return (i-ffunction(mfunction(i-1)));

}

}

int ffunction(int i)

{

if (i<0) {
printf(“Error. Parameter is negative.\n”);

}

else if (i==0) {

return 1;

}

else {

return (i-mfunction(ffunction(i-1)));

}

}

Q sequence

#include

#include

#include

int hfunction(int);

int main(void)

{

int n;

for(n=1;n<100;n++)
printf(“%d, “,qfunction(n));

}

int qfunction(int i)

{

if (i<0) {
printf(“Error. Parameter is negative.\n”);

}

else if (i==2 || i==1) {

return 1;

}

else {

int q=qfunction(i-qfunction(i-1))+qfunction(i-qfunction(i-2));

return q;

}

}

그냥 작동하기만 할 뿐인 프로그램들이다.

컴파일은 DevC++ 4.9.9.1 with MinGW 에서 해서 작동하는 것을 확인하였다.