用顺序表解决josephus问题的算法

/* 用顺序表解决josephus问题的算法*/

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

#define  MAXNUM  100
#define  FALSE   0
#define  TRUE    1

typedef  int  DataType;

struct SeqList {
    int       n;     /* 存放线性表中元素的个数 n < MAXNUM  */
    DataType  element[MAXNUM]; /* 存放线性表中的元素 */
};

typedef  struct SeqList *PSeqList;

PSeqList createNullList_seq( void ) {
    PSeqList palist = (PSeqList)malloc(sizeof(struct SeqList));
    if (palist != NULL)
        palist ->n = 0;     /* 空表长度为0 */
    else
        printf("Out of space!!\n");     /* 存储分配失败 */
    return palist;
}

/* 在palist所指顺序表中下标为p的元素之前插入元素x */
int insert_seq( PSeqList palist, int p, DataType x) {
    int q;
    if ( palist->n == MAXNUM ) {  /* 溢出 */
        printf("Seq-list overflow!\n");
        return FALSE;
    }
    if (  p < 0  ||  p > palist->n  ) {  /* 不存在下标p */
        printf("Index out of range! \n");
        return FALSE;
    }

    for (q = palist->n - 1; q >= p; q--) /* 插入位置及之后的元素均后移一个位置 */
        palist->element[q+1] = palist->element[q];
    palist->element[p] = x;         /* 插入元素x */
    palist->n++;           /* 元素个数加1 */
    return TRUE;
}

/* 在palist所指顺序表中删除下标为ｐ的元素 */
int  delete_seq( PSeqList palist, int p ) {
    int q;
    if (  p < 0  ||  p > palist->n  ) {  /* 不存在下标p */
        printf("Index out of range! \n");
        return FALSE;
    }

    for (q = p; q < palist->n-1; q++) /* 被删除元素之后的元素均前移一个位置 */
        palist->element[q] = palist->element[q+1];
    palist->n--;    /* 元素个数减1 */
    return TRUE;
}

/* 求palist所指顺序表中下标为p的元素值 */
DataType  retrieve_seq( PSeqList palist, int p ) {
    if ( p >= 0 && p < palist->n  ) /* 存在下标为p的元素 */
        return palist->element[p];
    printf("Index out of range! \n ");
    return -1;   /* 返回一个顺序表中没有的特殊值 */
}

 

void josephus_seq(PSeqList jlist, int n, int s, int m) {
    int s1, i, w;

    s1 = s - 1;

    /* 找出列的元素 */
    for (i = jlist->n; i > 0; i--) {
        s1 = ( s1 + m - 1 ) % i ;
        w = retrieve_seq(jlist, s1);     /* 求下标为s1的元素的值 */
        printf("Out element %d \n", w);   /* 元素出列 */
        delete_seq(jlist, s1);           /* 删除出列的元素 */
    }

    free(jlist);
}

/* ====================== */

void inputnsm(int* np, int* sp, int* mp) {
    printf("\n please input the values(<100) of n = ");
    scanf("%d", np);
    printf("\n please input the values of s = ");
    scanf("%d", sp);
    printf("\n please input the values of m = ");
    scanf("%d", mp);
}

int init_jlist(PSeqList slist, int n) {
    int i,k;

    if (slist == NULL) return FALSE;
    if (n < 1 || n > MAXNUM) {
        printf("Number of elements is out of range!\n");
        return FALSE;
    }
    for ( i = 0; i < n; i++ )
        k = insert_seq( slist, i, i+1);
}

int main( ){
    PSeqList jos_alist;
    int n,s,m;

    inputnsm(&n, &s, &m);

    jos_alist = createNullList_seq();    /* 创建空顺序表 */
    if (jos_alist == NULL) return;

    if (init_jlist(jos_alist, n) == FALSE) return;

    josephus_seq(jos_alist, n, s, m);

    free(jos_alist->element);
    free(jos_alist);

    getchar(); getchar();

    return 0;
}