mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
20 lines
349 B
Plaintext
20 lines
349 B
Plaintext
|
-- Higher-order functions
|
||
|
|
module test005;
|
||
|
|
|
||
|
|
import Stdlib.Prelude open;
|
||
|
|
|
||
|
|
S {A B C} (x : A → B → C) (y : A → B) (z : A) : C :=
|
||
|
|
x z (y z);
|
||
|
|
|
||
|
|
K {A B} (x : A) (_ : B) : A := x;
|
||
|
|
|
||
|
|
I {A} : A → A := S K (K {_} {Bool});
|
||
|
|
|
||
|
|
main : Nat :=
|
||
|
|
I 1
|
||
|
|
+ I I 1
|
||
|
|
+ I (I 1)
|
||
|
|
+ I I I 1
|
||
|
|
+ I (I I) I (I I I) 1
|
||
|
|
+ I I I (I I I (I I)) I (I I) I I I 1;
|