tricu/demos/size.tri

14 lines
236 B
Plaintext
Raw Normal View History

!import "../lib/base.tri" !Local
!import "../lib/list.tri" !Local
main = size size
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))