File tree Expand file tree Collapse file tree 1 file changed +29
-0
lines changed Expand file tree Collapse file tree 1 file changed +29
-0
lines changed Original file line number Diff line number Diff line change 1+ // Copyright 2014 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+ #[ deriving( Clone ) ]
12+ enum Noun
13+ {
14+ Atom ( int ) ,
15+ Cell ( ~Noun , ~Noun )
16+ }
17+
18+ fn fas ( n : & Noun ) -> Noun
19+ {
20+ match n
21+ {
22+ & Cell ( ~Atom ( 2 ) , ~Cell ( ref a, _) ) => ( * * a) . clone ( ) ,
23+ _ => fail ! ( "Invalid fas pattern" )
24+ }
25+ }
26+
27+ pub fn main ( ) {
28+ fas ( & Cell ( ~Atom ( 2 ) , ~Cell ( ~Atom ( 2 ) , ~Atom ( 3 ) ) ) ) ;
29+ }
You can’t perform that action at this time.
0 commit comments