source: src/examples/huge.c @ f1e42c1

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

update refrat with new keywords, update examples, update separators for quoted strings

  • Property mode set to 100644
File size: 624 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// huge.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 : Tue Mar  8 22:16:32 2016
13// Update Count     : 2
14//
15
16int huge( int n, forall( otype T ) T (*f)( T ) ) {
17        if ( n <= 0 )
18                return f( 0 );
19        else
20                return huge( n - 1, f( f ) );
21}
22
23// Local Variables: //
24// tab-width: 4 //
25// compile-command: "cfa huge.c" //
26// End: //
Note: See TracBrowser for help on using the repository browser.