開発環境
- OS X Lion - Apple(OS)
- Emacs、BBEdit - Bare Bones Software, Inc. (Text Editor)
- プログラミング言語: C
- Clang (コンパイラ)
プログラミング言語C 第2版 ANSI規格準拠 (B.W. カーニハン D.M. リッチー (著)、 石田 晴久 (翻訳)、共立出版)の第4章(関数とプログラム構造)、4.3(外部変数)の演習4-3、4-4を解いてみる。
その他参考書籍
- プログラミング言語Cアンサー・ブック 第2版 (クロビス・L.トンド、スコット・E.ギンペル(著)、矢吹 道郎(翻訳))
演習 4-3.
コード
sample.c
#include <stdio.h> #include <stdlib.h> #include <math.h> #include <ctype.h> #define MAXOP 100 #define NUMBER '0' #define MAXVAL 100 #define BUFSIZE 100 int getop(char []); void push(double); double pop(void); int sp = 0; double val[MAXVAL]; char buf[BUFSIZE]; int bufp = 0; int getch(void); void ungetch(int); int main() { int type; double op2; char s[MAXOP]; while ((type = getop(s)) != EOF) { switch (type) { case NUMBER: push(atof(s)); break; case '+': push(pop() + pop()); break; case '*': push(pop() * pop()); break; case '-': op2 = pop(); push(pop() - op2); break; case '/': op2 = pop(); if (op2 != 0.0) push(pop() / op2); else printf("error: zero divisor\n"); break; case '%': op2 = pop(); if (op2 != 0.0) push(fmod(pop(), op2)); else printf("error: zero divisor(fmod)\n"); break; case '\n': printf("\t%.8g\n", pop()); break; default: printf("error: unkown command %s\n", s); break; } } return 0; } void push(double f) { if (sp < MAXVAL) val[sp++] = f; else printf("error: stack full, can't push %g\n", f); } double pop(void) { if (sp > 0) return val[--sp]; else { printf("error: stack empty\n"); return 0.0; } } int getop(char s[]) { int i, c; while ((s[0] = c = getch()) == ' ' || c == '\t') ; s[1] = '\0'; if (!isdigit(c) && c != '.' && c != '-') return c; i = 0; if (c == '-') { if (isdigit(c = getch()) || c == '.') { s[++i] = c; } else { if (c != EOF) return '-'; } } if (isdigit(c)) while (isdigit(s[++i] = c = getch())) ; if (c == '.') while (isdigit(s[++i] = c = getch())) ; s[i] = '\0'; if (c != EOF) ungetch(c); return NUMBER; } int getch(void) { return (bufp > 0) ? buf[--bufp] : getchar(); } void ungetch(int c) { if (bufp >= BUFSIZE) printf("ungetch: too many characters\n"); else buf[bufp++] = c; }
入出力結果(Terminal)
$ ./a.out 1 2 - 4 5 + * -9 5 2 % 1 -1 2 - 4 5 + * -27 1 -2 - 4 5 + * 27 1 2 - -4 5 + * -1 1 2 - 4 -5 + * 1 5 3 % 2 5 4 % 1 5 5 % 0 $
演習 4-4.
コード
sample.c
#include <stdio.h> #include <stdlib.h> #include <math.h> #include <ctype.h> #define MAXOP 100 #define NUMBER '0' #define MAXVAL 100 #define BUFSIZE 100 int getop(char []); void push(double); double pop(void); int sp = 0; double val[MAXVAL]; char buf[BUFSIZE]; int bufp = 0; int getch(void); void ungetch(int); int main() { int type; double op2, op1; char s[MAXOP]; while ((type = getop(s)) != EOF) { switch (type) { case NUMBER: push(atof(s)); break; case '+': push(pop() + pop()); break; case '*': push(pop() * pop()); break; case '-': op2 = pop(); push(pop() - op2); break; case '/': op2 = pop(); if (op2 != 0.0) push(pop() / op2); else printf("error: zero divisor\n"); break; case '%': op2 = pop(); if (op2 != 0.0) push(fmod(pop(), op2)); else printf("error: zero divisor(fmod)\n"); break; /* スタックの一番上の要素を印刷するコマンド(top) */ case 't': op2 = pop(); printf("\t%.8g\n", op2); push(op2); break; /* スタックの一番上の要素を複製するコマンド(copy) */ case 'c': op2 = pop(); push(op2); push(op2); break; case 's': /* 二つの要素を交換するコマンド(swap) */ op2 = pop(); op1 = pop(); push(op2); push(op1); break; case '\n': printf("\t%.8g\n", pop()); break; default: printf("error: unkown command %s\n", s); break; } } return 0; } void push(double f) { if (sp < MAXVAL) val[sp++] = f; else printf("error: stack full, can't push %g\n", f); } double pop(void) { if (sp > 0) return val[--sp]; else { printf("error: stack empty\n"); return 0.0; } } int getop(char s[]) { int i, c; while ((s[0] = c = getch()) == ' ' || c == '\t') ; s[1] = '\0'; if (!isdigit(c) && c != '.' && c != '-') return c; i = 0; if (c == '-') { if (isdigit(c = getch()) || c == '.') { s[++i] = c; } else { if (c != EOF) return '-'; } } if (isdigit(c)) while (isdigit(s[++i] = c = getch())) ; if (c == '.') while (isdigit(s[++i] = c = getch())) ; s[i] = '\0'; if (c != EOF) ungetch(c); return NUMBER; } int getch(void) { return (bufp > 0) ? buf[--bufp] : getchar(); } void ungetch(int c) { if (bufp >= BUFSIZE) printf("ungetch: too many characters\n"); else buf[bufp++] = c; }
入出力結果(Terminal)
$ ./a.out 1 t 2 t - t 4 t 5 t + t * t 1 2 -1 4 5 9 -9 -9 1 c + 2 c + * 8 1 2 s / 2 1 2 / 0.5 2 1 s / 0.5 2 1 / 2 $
0 コメント:
コメントを投稿