source: examples/huge.c @ 42cd451

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationnew-astnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since 42cd451 was bf71cfd, checked in by Thierry Delisle <tdelisle@…>, 6 years ago

Moved up many directories in source

  • 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.