2018-08-30 12:18:55 +00:00
|
|
|
//@ run-pass
|
2015-02-10 21:52:00 +00:00
|
|
|
#![feature(box_patterns)]
|
2014-05-06 01:56:44 +00:00
|
|
|
|
2014-12-31 04:32:49 +00:00
|
|
|
#[derive(Clone)]
|
2014-03-01 06:05:49 +00:00
|
|
|
enum Noun
|
|
|
|
{
|
2015-03-26 00:06:52 +00:00
|
|
|
Atom(isize),
|
2014-05-06 01:56:44 +00:00
|
|
|
Cell(Box<Noun>, Box<Noun>)
|
2014-03-01 06:05:49 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
fn fas(n: &Noun) -> Noun
|
|
|
|
{
|
2014-05-06 01:56:44 +00:00
|
|
|
match n {
|
2014-11-06 08:05:53 +00:00
|
|
|
&Noun::Cell(box Noun::Atom(2), box Noun::Cell(ref a, _)) => (**a).clone(),
|
2014-10-09 19:17:22 +00:00
|
|
|
_ => panic!("Invalid fas pattern")
|
2014-03-01 06:05:49 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
pub fn main() {
|
2022-07-07 02:36:10 +00:00
|
|
|
fas(
|
|
|
|
&Noun::Cell(Box::new(Noun::Atom(2)),
|
|
|
|
Box::new(Noun::Cell(Box::new(Noun::Atom(2)), Box::new(Noun::Atom(3)))))
|
|
|
|
);
|
2014-03-01 06:05:49 +00:00
|
|
|
}
|