// // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo // // The contents of this file are covered under the licence agreement in the // file "LICENCE" distributed with Cforall. // // huge.c -- // // Author : Richard C. Bilson // Created On : Wed May 27 17:56:53 2015 // Last Modified By : Peter A. Buhr // Last Modified On : Tue Mar 8 22:16:32 2016 // Update Count : 2 // int huge( int n, forall( T ) T (*f)( T ) ) { if ( n <= 0 ) return f( 0 ); else return huge( n - 1, f( f ) ); } // Local Variables: // // tab-width: 4 // // compile-command: "cfa huge.c" // // End: //