2023-12-01 01:10:16 +00:00
|
|
|
(local fennel (require :fennel))
|
2023-12-03 16:49:11 +00:00
|
|
|
(import-macros {: def : q : ttype : static : unterra : untype} :terra)
|
|
|
|
|
|
2023-12-05 01:40:52 +00:00
|
|
|
(local iseven (def [uint32 : bool]))
|
|
|
|
|
(local isodd (def [n uint32 : bool]
|
|
|
|
|
(if (= n 0)
|
|
|
|
|
(return true)
|
|
|
|
|
(return (iseven (- n 1))))))
|
|
|
|
|
(iseven:adddefinition (def [n uint32 : bool]
|
|
|
|
|
(if (= n 0)
|
|
|
|
|
(return false)
|
|
|
|
|
(return (isodd (- n 1))))))
|
|
|
|
|
(print iseven)
|
|
|
|
|
(print (iseven 5) (isodd 5))
|
|
|
|
|
(print (iseven 6) (isodd 6))
|
