juvix/tests/VampIR/positive/Core/test017.jvc

-- recursion through higher-order functions

def g : (Int -> Int) -> Int -> Int :=
    \(f : Int -> Int) \(x : Int) if x = 0 then 0 else f (x - 1);
def f : Int -> Int := \(x : Int) x + g f x;

f
Normalization by Evaluation (#2038) * Closes #2032. * Adds the `juvix dev core normalize` command. * Adds the `:n` command in JuvixCore REPL. * Adds the `--normalize` flag to `juvix dev core read` and `juvix dev core from-concrete`. * Adds `pipeline-normalize` which denotes pipeline steps necessary before normalization. * Adds normalization tests in `tests/VampIR/positive/Core`. 2023-05-15 19:01:40 +03:00			`-- recursion through higher-order functions`

			`def g : (Int -> Int) -> Int -> Int :=`
			`\(f : Int -> Int) \(x : Int) if x = 0 then 0 else f (x - 1);`
			`def f : Int -> Int := \(x : Int) x + g f x;`

			`f`