You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

664 B

-- simple test
(data 𝔹 ([𝔹] 𝕋)
([𝔹] 𝔽))

-- (data Fuck ([𝔹] T)
-- ([Integer -> Integer -> 𝔹] F))

[𝔹 → 𝔹]
(def (((not 𝕋) 𝔽)
((not 𝔽) 𝕋)))


[ℤ → 𝔹]
(def (((is1 1) 𝕋)
((is1 _) 𝔽)))

(data ℤList ([ℤList] IEmpty)
([ℤ → ℤList → ℤList] ICons))

(data 𝔹List ([𝔹List] BEmpty)
([𝔹 → 𝔹List → 𝔹List] BCons))

[ℤList → 𝔹List]
(def (((is1l IEmpty) BEmpty)
((is1l (ICons x xs)) (BCons (is1 x) (is1l xs)))))

[ℤList → 𝔹List]
(def is1l2 is1l)

[𝔹 → ℤList → 𝔹List]
(def is1l3 (lambda [𝔹] x is1l))