src/test/run-pass/tail-cps.rs

   1 // Copyright 2012 The Rust Project Developers. See the COPYRIGHT
   2 // file at the top-level directory of this distribution and at
   3 // http://rust-lang.org/COPYRIGHT.
   4 //
   5 // Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
   6 // http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
   7 // <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
   8 // option. This file may not be copied, modified, or distributed
   9 // except according to those terms.
  10
  11 fn checktrue(rs: bool) -> bool { assert!((rs)); return true; }
  12
  13 pub fn main() { let k = checktrue; evenk(42, k); oddk(45, k); }
  14
  15 fn evenk(n: isize, k: fn(bool) -> bool) -> bool {
  16     println!("evenk");
  17     println!("{}", n);
  18     if n == 0 { return k(true); } else { return oddk(n - 1, k); }
  19 }
  20
  21 fn oddk(n: isize, k: fn(bool) -> bool) -> bool {
  22     println!("oddk");
  23     println!("{}", n);
  24     if n == 0 { return k(false); } else { return evenk(n - 1, k); }
  25 }