Idris2/tests/idris2/reflection002/power.idr

import Language.Reflection

%language ElabReflection

powerFn : Nat -> TTImp
powerFn Z = `(const 1)
powerFn (S k) = `(\x => mult x (~(powerFn k) x))

cube : Nat -> Nat
cube = %runElab check (powerFn 3)
Progress on elaborator reflection Add %runElab and start on scripts, although all they can do so far is check a term. This does gives us, sort of, "template Idris" (as demonstrated in test reflection002) 2020-05-31 03:36:54 +03:00			`import Language.Reflection`

			`%language ElabReflection`

			`powerFn : Nat -> TTImp`
			powerFn Z = `(const 1)
			powerFn (S k) = `(\x => mult x (~(powerFn k) x))

			`cube : Nat -> Nat`
Allow scripts to inspect goal If available (sometimes, say a top level expression, it might need inferring so there'll be no goal available). Also add the ability to log the current goal, or indeed any term. 2020-05-31 16:33:34 +03:00			`cube = %runElab check (powerFn 3)`