c268602795
`[wf_preprocess]` expects a dsimp theorem, which in `Init` temporarily have a simplistic syntactic representation until a more robust solution is implemented.
13 lines
357 B
Text
13 lines
357 B
Text
def computeFuel (mass : Nat) : Nat :=
|
|
let rec go acc cur :=
|
|
let n := cur / 3 - 2
|
|
if n = 0 then acc + cur else go (acc + cur) n
|
|
termination_by cur
|
|
go 0 mass - mass
|
|
|
|
def computeFuel' (mass : Nat) : Nat :=
|
|
let rec go acc cur :=
|
|
letI n := cur / 3 - 2
|
|
if n = 0 then acc + cur else go (acc + cur) n
|
|
termination_by cur
|
|
go 0 mass - mass
|