1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81

use crate::IndexSet;
use crate::RcStr;
use std::cmp;
use std::hash::Hash;
use std::hash::Hasher;

#[derive(Debug, Clone, PartialEq, Eq, PartialOrd, Ord, Hash)]
pub enum Key {
    Nil,
    Bool(bool),
    NumberBits(i64), // f64 stored as bits
    String(RcStr),
    List(Vec<Key>),
    Set(HSet),
}

/// Basically a IndexSet that has been made Ord and Hash
#[derive(Debug, Clone, PartialEq, Eq)]
pub struct HSet(pub IndexSet<Key>);

impl HSet {
    fn sorted_keys(&self) -> Vec<Key> {
        let mut keys: Vec<_> = self.0.clone().into_iter().collect();
        keys.sort();
        keys
    }
}

impl Hash for HSet {
    fn hash<H: Hasher>(&self, state: &mut H) {
        self.sorted_keys().hash(state);
    }
}

impl cmp::PartialOrd for HSet {
    fn partial_cmp(&self, other: &Self) -> Option<cmp::Ordering> {
        self.sorted_keys().partial_cmp(&other.sorted_keys())
    }
}

impl cmp::Ord for HSet {
    fn cmp(&self, other: &Self) -> cmp::Ordering {
        self.sorted_keys().cmp(&other.sorted_keys())
    }
}

impl From<()> for Key {
    fn from(_: ()) -> Self {
        Self::Nil
    }
}

impl From<bool> for Key {
    fn from(x: bool) -> Self {
        Self::Bool(x)
    }
}

impl From<RcStr> for Key {
    fn from(s: RcStr) -> Self {
        Self::String(s)
    }
}

impl From<String> for Key {
    fn from(s: String) -> Self {
        Self::String(s.into())
    }
}

impl From<&String> for Key {
    fn from(s: &String) -> Self {
        Self::String(s.into())
    }
}

impl From<&str> for Key {
    fn from(s: &str) -> Self {
        Self::String(s.into())
    }
}