language: Forth (gforth-0.7.0)
date: 517 days 18 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
/*
void sort( *char ary, int size)
{
        int i;
        int j;
       for(i = 0; i < size; i++){
                for(j = i; j < size ; j++)
                        if(ary[i] > ary[j])
                                swap(&a[i], &a[j]);
        }
}
*/
/*
void swap( int *a_ptr, int *b_ptr )
{
        int temp;
        temp = *a_ptr;
        *a_ptr = *b_ptr;
        *b_ptr = temp;
}
 
   
*/
 
 
int main()
{
 
    int sze = 0;
    int k = 0; 
    int len = 0;
    char buffer[40];
    char *line_array[40];      
         
          while((buffer[0] != '#') & (sze < 40)) {
 
                   printf("Enter a phrase.  Enter '#' when finished.\n");
                   fgets(&buffer[0], len + 1, stdin);
                   len = strlen(&buffer[sze]);
                   line_array[sze] = (char*)malloc(len+1);
                   strcpy(line_array[k],&buffer[0]);
                   len = 0;
                   sze++;
               }
 
 
 
           for (int i = 0; i < (sze + 1); i++){
 
                
                fputs(*line_array[i], stdout);
 
              }
return 0;
}