fork download
  1. proc even(n: int): bool
  2.  
  3. proc odd(n: int): bool =
  4. assert(n >= 0) # nが負数になり無限ループする事がない事を保証する
  5. if n == 0: false
  6. else:
  7. n == 1 or even(n-1)
  8.  
  9. proc even(n: int): bool =
  10. assert(n >= 0) # nが負数になり無限ループする事がない事を保証する
  11. if n == 1: false
  12. else:
  13. n == 0 or odd(n-1)
  14.  
  15.  
Success #stdin #stdout 0s 2428KB
stdin
Standard input is empty
stdout
Standard output is empty