source:
src/Tests/Quad.c@
8243cf9
| Last change on this file since 8243cf9 was b1d6dd5, checked in by , 11 years ago | |
|---|---|
|
|
| File size: 286 bytes | |
| Rev | Line | |
|---|---|---|
| [a65d92e] | 1 | int ?=?( int *, int ); |
| [51b73452] | 2 | int ?*?( int, int ); |
| 3 | ||
| 4 | forall( type T | { T ?*?( T, T ); } ) | |
| [a65d92e] | 5 | T square( T t ) { |
| 6 | return t * t; | |
| [51b73452] | 7 | } |
| 8 | ||
| 9 | forall( type U | { U square( U ); } ) | |
| [a65d92e] | 10 | U quad( U u ) { |
| 11 | return square( square( u ) ); | |
| [51b73452] | 12 | } |
| 13 | ||
| [a65d92e] | 14 | void f() { |
| 15 | quad( 7 ); | |
| [51b73452] | 16 | } |
| [a65d92e] | 17 | |
| 18 | // Local Variables: // | |
| 19 | // tab-width: 4 // | |
| 20 | // End: // |
Note:
See TracBrowser
for help on using the repository browser.
