60 lines
1.3 KiB
C
60 lines
1.3 KiB
C
|
|
/* Driver for routine sort3 */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <math.h>
|
|
#define NRANSI
|
|
#include "nr.h"
|
|
#include "nrutil.h"
|
|
|
|
#define NLEN 64
|
|
|
|
int main(void)
|
|
{
|
|
int i,j;
|
|
char dummy[NLEN],amsg[NLEN+1],bmsg[NLEN+1],cmsg[NLEN+1];
|
|
float *a,*b,*c;
|
|
FILE *fp;
|
|
|
|
a=vector(1,NLEN);
|
|
b=vector(1,NLEN);
|
|
c=vector(1,NLEN);
|
|
(void) strcpy(amsg,"I'd rather have a bottle in front of");
|
|
(void) strcat(amsg," me than a frontal lobotomy.");
|
|
printf("\noriginal message:\n%s\n",amsg);
|
|
/* read array of random numbers */
|
|
if ((fp = fopen("tarray.dat","r")) == NULL)
|
|
nrerror("Data file tarray.dat not found\n");
|
|
fgets(dummy,NLEN,fp);
|
|
for (i=1;i<=NLEN;i++) fscanf(fp,"%f",&a[i]);
|
|
fclose(fp);
|
|
/* create array b and array c */
|
|
for (i=1;i<=NLEN;i++) {
|
|
b[i]=i;
|
|
c[i]=NLEN+1-i;
|
|
}
|
|
/* sort array a while mixing b and c */
|
|
sort3(NLEN,a,b,c);
|
|
/* scramble message according to array b */
|
|
bmsg[NLEN]=amsg[NLEN]; /* null terminating character */
|
|
for (i=1;i<=NLEN;i++) {
|
|
j=b[i];
|
|
bmsg[i-1]=amsg[j-1];
|
|
}
|
|
printf("\nscrambled message:\n%s\n",bmsg);
|
|
/* unscramble according to array c */
|
|
cmsg[NLEN]=amsg[NLEN];
|
|
for (i=1;i<=NLEN;i++) {
|
|
j=c[i];
|
|
cmsg[j-1]=bmsg[i-1];
|
|
}
|
|
printf("\nmirrored message:\n%s\n",cmsg);
|
|
free_vector(c,1,NLEN);
|
|
free_vector(b,1,NLEN);
|
|
free_vector(a,1,NLEN);
|
|
return 0;
|
|
}
|
|
#undef NRANSI
|