File tree 1 file changed +29
-0
lines changed
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