Changes in src/examples/esskaykay.c [86bd7c1f:58b5d03]
- File:
-
- 1 edited
-
src/examples/esskaykay.c (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/examples/esskaykay.c
r86bd7c1f r58b5d03 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed May 27 18:11:45 201513 // Update Count : 212 // Last Modified On : Fri Jun 10 15:25:12 2016 13 // Update Count : 4 14 14 // 15 15 16 // forall ( type A, type B,type C) C ess (C (*f) (A,B), B (*g) (A), A x) { return f(x,g(x)); }17 forall ( type A, type B,type C) C ess (C (*(*f)(A))(B), B (*g)(A), A x) { return f(x)(g(x)); }16 // forall (otype A, otype B, otype C) C ess (C (*f) (A,B), B (*g) (A), A x) { return f(x,g(x)); } 17 forall (otype A, otype B, otype C) C ess (C (*(*f)(A))(B), B (*g)(A), A x) { return f(x)(g(x)); } 18 18 19 // forall ( type A,type B) A kay (A a, B b) { return a; }20 forall ( type A,type B) A (*kay(A a))(B b);19 // forall (otype A, otype B) A kay (A a, B b) { return a; } 20 forall (otype A, otype B) A (*kay(A a))(B b); 21 21 22 22 // Now is the following function well-typed, or not? 23 23 24 forall ( type A) A esskaykay (A x) { ess (kay, kay, x); }24 forall (otype A) A esskaykay (A x) { ess (kay, kay, x); } 25 25 26 26 // Local Variables: //
Note:
See TracChangeset
for help on using the changeset viewer.