Home Explore Help
Sign In
caryoscelus
/
agda
Watch 1
Star 0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Branch: js_amd
Branches Tags
agda
/
test
/
Compiler
/
simple
/
InlineRecursive.out

InlineRecursive.out 357 B
Permalink History Raw

12345678910111213141516 
  1. EXECUTED_PROGRAM
    2. 

  2. 

  3. ret > ExitSuccess
    4. 

  4. out > InlineRecursive.f =
    5. 

  5. out >   λ a →
    6. 

  6. out >     case a of
    7. 

  7. out >       0 → 0
    8. 

  8. out >       _ → let b = a - 1 in InlineRecursive.f b
    9. 

  9. out > InlineRecursive.main =
    10. 

  10. out >   Common.IO.printNat
    11. 

  11. out >     (let a = 4 in
    12. 

  12. out >      case a of
    13. 

  13. out >        0 → 0
    14. 

  14. out >        _ → let b = 3 in InlineRecursive.f b)
    15. 

  15. out > 0
    16. 

  16.