source: src/examples/min.c @ 94b4364

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsctordeferred_resndemanglerenumforall-pointer-decaygc_noraiijacob/cs343-translationjenkins-sandboxmemorynew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newstringwith_gc
Last change on this file since 94b4364 was 86bd7c1f, checked in by Peter A. Buhr <pabuhr@…>, 9 years ago

licencing: eighth groups of files

  • Property mode set to 100644
File size: 945 bytes
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// min.c --
8//
9// Author           : Richard C. Bilson
10// Created On       : Wed May 27 17:56:53 2015
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Wed May 27 18:23:19 2015
13// Update Count     : 2
14//
15
16extern "C" {
17        int printf( const char *, ... );
18//#include <stdio.h>
19}
20
21forall( type T | { int ?<?( T, T ); } )
22T min( const T t1, const T t2 ) {
23        return t1 < t2 ? t1 : t2;
24}
25
26int main() {
27        char c;
28//      c = min( 'z', 'a' );
29//      printf( "minimum %d\n", c );
30        int i;
31        i = min( 4, 3 );
32        printf( "minimum %d\n", min( 4, 3 ) );
33        float f;
34        f = min( 4.0, 3.1 );
35        printf( "minimum %g\n", f );
36        double d;
37        d = min( 4.0, 3.2 );
38        printf( "minimum %g\n", d );
39}
40
41// Local Variables: //
42// tab-width: 4 //
43// compile-command: "cfa min.c" //
44// End: //
Note: See TracBrowser for help on using the repository browser.