文章标题

代码转自 C程序设计语言

#include <stdio.h>
#include <stdlib.h>    /* 为了使用atof（）函数 */

#define MAXOP 100    /* 操作数或运算符的最大长度 */
#define NUMBER '0'    /* 标识找到一个数 */

#define MAXLINE 100    /* 最大输入行长度 */

int gettop(char []);
void push(double);
double pop(void);

/* 逆波兰计算器 */
int reverse_poland_counter()
{
    int type;
    double op2;
    char s[MAXOP];

    while ((type = gettop(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 '\n':
            printf("\t%.8g\n", pop());
            break;
        default:
            printf("error: unknown command %s \n", s);
            break;
        }
    }
    return 0;
}

#define MAXVAL 100    /* 栈val的最大深度 */

int sp = 0;    /* 下一个空闲栈位置 */
double val[MAXVAL];    /* 值栈 */

/* push函数：把f压入到值栈中 */
void push(double f)
{
    if (sp < MAXVAL)
        val[sp++] = f;
    else
        printf("error: stack full , can't push %g\n", f);
}

/* pop函数：弹出并返回栈顶的值 */
double pop(void)
{
    if (sp > 0)
        return val[--sp];
    else {
        printf("error: stack empty \n");
        return 0.0;
    }
}

#include <ctype.h>

int getch(void);
void ungetch(int);

/* getop函数：获取下一个运算符或数值操作数 */
int gettop(char s[])
{
    int i, c;

    while ((s[0] = c = getch()) == ' ' || c == '\t')
        ;
    s[1] = '\0';
    if (!isdigit(c) && c != '.')
        return c;    /* 不是数（或小数） */
    i = 0;
    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;
}

#define BUFSIZE 100

char buf[BUFSIZE];    /* 用于ungetch函数的缓冲区 */
int bufp = 0;    /* buf中下一个空闲位置 */

/* 取一个字符（可能是压回的字符） */
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;
}

int main()
{
    reverse_poland_counter();
    return 0;
}

/* 逆波兰计算器 ending */


int getline(char line[], int max);
int strindex(char source[], char searchfor[]);
int strrindex_first(char source[], char searchfor[]);
int strrindex_second(char source[], char searchfor[]);

char pattern[] = "ould";    /* 待查找的模式 */

 /* 找出所有与模式匹配的行 */
int find_line_match_mode(void)
{
    char line[MAXLINE];
    int found = 0;
    int pos;

    while (getline(line, MAXLINE)) 
        if ((pos = strrindex_second(line, pattern)) >= 0) {
            printf("%s", line);
            printf("the pos is : %d\n\n", pos);
            found++;
        }
    return found;    
}


/* strindex函数： 返回t(=pattern)在s中的位置， 若未找到则返回-1 */
int strindex(char s[], char t[])
{
    int i, j, k;

    for (i = 0; s[i] != '\0'; i++) {
        for (j = i, k = 0;t[k] != '\0' && s[j] == t[k]; j++, k++)
            ;
        if (k > 0 && t[k] == '\0')
            return i;
    }
    return -1;
}

/* strrindex函数： 返回t(=pattern)在s中的位置（最右边出现的位置）， 若未找到则返回-1 */
/* strrindex: returuns rightmost index of t in s, -1 if none */
int strrindex_first(char s[], char t[])
{
    int i, j, k, pos;

    pos = -1;
    for (i = 0; s[i] != '\0'; i++) {
        for (j = i, k = 0;t[k] != '\0' && s[j] == t[k]; j++, k++)
            ;
        if (k > 0 && t[k] == '\0')
            pos = i;
    }
    return pos;
}

#include <string.h>

int strrindex_second(char s[], char t[])
{
    int i, j, k;

    for (i = strlen(s) - strlen(t); i >= 0; i--) {
        for (j = i, k = 0; t[k] != '\0' && s[j] == t[k]; j++, k++)
            ;
        if (k > 0 && t[k] == '\0')
            return i;
    }
    return -1;
}

#include <ctype.h>
/* atof函数： 把字符串s转换为相应的双精度浮点数 */
double atof(char s[])
{
    double val, power;
    int i, sign;

    for (i = 0; isspace(s[i]); i++)
        ;
    sign = (s[i] == '-') ? -1 : 1;
    if (s[i] == '+' || s[i] == '-')
        i++;
    for (val = 0.0; isdigit(s[i]); i++)
        val = 10.0 * val + (s[i] - '0');
    if (s[i] == '.')
        i++;
    for (power = 1.0; isdigit(s[i]); i++) {
        val = 10.0 * val + (s[i] - '0');
        power *= 10.0;
    }
    return sign * val / power;
}

//#define MAXLINE 100    /* 最大输入行长度 */

/* getline 函数： 将行保存到s中，并返回该行的长度 */
int getline(char s[], int lim)
{
    int c, i;

    i = 0;
    while (--lim > 0 && (c=getchar()) != EOF && c!= '\n')
        s[i++] = c;
    if (c == '\n')
        s[i++] = c;
    s[i] = '\0';
    return i;
}

double atof_modified(char s[])
{
    double val, power;
    int i, sign, exp;

    for (i = 0; isspace(s[i]); i++)
        ;
    sign = (s[i] == '-') ? -1 : 1;
    if (s[i] == '+' || s[i] == '-')
        i++;
    for (val = 0.0; isdigit(s[i]); i++)
        val = 10.0 * val + (s[i] - '0');
    if (s[i] == '.')
        i++;
    for (power = 1.0; isdigit(s[i]); i++) {
        val = 10.0 * val + (s[i] - '0');
        power *= 10.0;
    }
    val = sign * val / power;    /* 此处已算出除指数外的数值 */

    sign = 0;/* 以防e(E)后面出现+/-以外的字符 */
    if ((s[i] == 'e' || s[i] == 'E')) {     
        if(s[i + 1] == '+' || s[i + 1] == '-')
            sign = (s[++i] == '-') ? -1 : 1;    
        for (exp = 0, i++; isdigit(s[i]); i++)
            exp = 10* exp + s[i] - '0';
        if (sign == 1)
            while (exp-- > 0)
                val *= 10;
        else if (sign == -1)
            while (exp-- > 0)
                val /= 10;
    }       
    return val;
}

int main_copy()
{
    char line[MAXLINE];
    double sum;

    sum = 0;
    while (getline(line, MAXLINE) > 0)
        printf("\t%g\n", atof_modified(line));
    return 0;
}