mirror of
https://github.com/anoma/juvix.git
synced 2024-11-30 14:13:27 +03:00
21 lines
375 B
Plaintext
21 lines
375 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 : IO :=
|
|
printNatLn
|
|
(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);
|