tricu/demos/size.tri

22 lines
309 B
Plaintext
Raw Normal View History

main = size size
compose = \f g x : f (g x)
2025-01-23 18:57:59 -06:00
succ = y (\self :
triage
1
t
(triage
(t (t t))
(\_ tail : t t (self tail))
2025-01-23 18:57:59 -06:00
t))
size = (\x :
(y (\self x :
compose succ
(triage
(\x : x)
self
(\x y : compose (self x) (self y))
2025-01-23 18:57:59 -06:00
x)) x 0))