Changeset 097e2b0 for src/examples/sum.c

Timestamp:

Oct 9, 2015, 4:37:04 PM (9 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, ctor, deferred_resn, demangler, enum, forall-pointer-decay, gc_noraii, jacob/cs343-translation, jenkins-sandbox, master, memory, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, string, with_gc

Children:

9909842, d2ded3e7

Parents:

02e5ab6

Message:

constructor/destructor, more example programs

File:

• src/examples/sum.c (modified) (2 diffs)

src/examples/sum.c

@@ -7 +7 @@
 // sum.c -- 
 //
-// Author           : Richard C. Bilson
+// Author           : Peter A. Buhr
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Jun  1 20:46:35 2015
-// Update Count     : 18
+// Last Modified On : Mon Sep 28 15:09:55 2015
+// Update Count     : 118
 //
 
 extern "C" {
-        int printf( const char *, ... );
+        int printf( char *, ... );
 }
+#include "fstream.h"
 
 context sumable( type T ) {
         const T 0;
         T ?+?( T, T );
+        T ?+=?( T *, T );
+        T ++?( T * );
         T ?++( T * );
-        T ?+=?( T *, T );
 };
 
 forall( type T | sumable( T ) )
-T sum( int n, T a[] ) {
-        T total;                                                                                        // instantiate T, select 0
-        total = 0;
-        for ( int i = 0; i < n; i += 1 )
-                total = total + a[i];                                                   // select +
+T sum( unsigned int n, T a[] ) {
+        T total = 0;                                                                            // instantiate T, select 0
+        for ( unsigned int i = 0; i < n; i += 1 )
+                total += a[i];                                                                  // select +
         return total;
 }
@@ -36 +37 @@
 // Required to satisfy sumable as char does not have addition.
 const char 0;
-char ?+?( char op1, char op2 ) { return op1 + op2; }
-char ?++( char *op ) { return *op + 1; }
-
-const double 0; // TEMPORARY, incorrect use of int 0
+char ?+?( char op1, char op2 ) { return (int)op1 + op2; } // cast forces integer addition or recursion
+char ++?( char *op ) { *op += 1; return *op; }
+char ?++( char *op ) { char temp = *op; *op += 1; return temp; }
 
 int main() {
         const int low = 5, High = 15, size = High - low;
-        int si = 0, ai[size];
+
+        ofstream *sout = ofstream_stdout();
+
+        char s = 0, a[size];
+        char v = low;
+        for ( int i = 0; i < size; i += 1, v += 1 ) {
+                s += v;
+                a[i] = v;
+        }
+        sout << "sum from " << low << " to " << High << " is "
+                 << (int)sum( size, a ) << ", check " << (int)s << "\n";
+
+        int s = 0, a[size];
         int v = low;
         for ( int i = 0; i < size; i += 1, v += 1 ) {
-                si += v;
-                ai[i] = v;
+                s += (int)v;
+                a[i] = (int)v;
         }
-        printf( "sum from %d to %d is %d, check %d\n",
-                        low, High, sum( size, ai ), si );
+        sout << "sum from " << low << " to " << High << " is "
+                 << sum( size, (int *)a ) << ", check " << (int)s << "\n";
 
-//      char ci[size];
-//      char c = sum( size, ci );
-//      float fi[size];
-//      float f = sum( size, fi );
-
-        double sd = 0.0, ad[size];
+        double s = 0.0, a[size];
         double v = low / 10.0;
         for ( int i = 0; i < size; i += 1, v += 0.1 ) {
-                sd += v;
-                ad[i] = v;
+                s += (double)v;
+                a[i] = (double)v;
         }
-        printf( "sum from %g to %g is %g, check %g\n",
-                        low / 10.0, High / 10.0, sum( size, ad ), sd );
+        printf( "%g\n", sum( size, (double *)a ) );
+//      sout << "sum from " << low / 10.0 << " to " << High / 10.0 << " is "
+//               << sum( size, (double *)a ) << ", check " << (double)s << "\n";
+
+        float s = 0.0, a[size];
+        float v = low / 10.0;
+        for ( int i = 0; i < size; i += 1, v += 0.1f ) {
+                s += (float)v;
+                a[i] = (float)v;
+        }
+        printf( "%g\n", sum( size, (float *)a ) );
+//      sout << "sum from " << low / 10.0 << " to " << High / 10.0 << " is "
+//               << sum( size, (float *)a ) << ", check " << (float)s << "\n";
 }
 
 // Local Variables: //
 // tab-width: 4 //
-// compile-command: "cfa sum.c" //
+// compile-command: "cfa sum.c fstream.o iostream.o" //
 // End: //