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
82
83
84
85
86
87
88
89
90
91
92
93
/*
    Appellation: tapes <module>
    Contrib: FL03 <jo3mccain@icloud.com>
    Description: The tape structure modifies traditional vectors, restricing the ability to remove entries from the tape.
*/
use crate::Symbolic;
use serde::{Deserialize, Serialize};

#[derive(Clone, Debug, Deserialize, Eq, Hash, Ord, PartialEq, PartialOrd, Serialize)]

pub enum Tapes<S: Symbolic = String> {
    Normal(Tape<S>),
    Standard(Tape<S>),
}

impl<S: Symbolic> Tapes<S> {
    pub fn normal(tape: Tape<S>) -> Self {
        Self::Normal(tape)
    }
    pub fn standard(tape: Tape<S>) -> Self {
        Self::Standard(tape)
    }
}

impl<S: Symbolic> Default for Tapes<S> {
    fn default() -> Self {
        Self::normal(Default::default())
    }
}

impl<S: Symbolic> From<Tapes<S>> for Tape<S> {
    fn from(tape: Tapes<S>) -> Tape<S> {
        match tape {
            Tapes::Normal(t) => t,
            Tapes::Standard(t) => t,
        }
    }
}

#[derive(Clone, Debug, Default, Deserialize, Eq, Hash, Ord, PartialEq, PartialOrd, Serialize)]
pub struct Tape<S: Symbolic = String>(Vec<S>);

impl<S: Symbolic> Tape<S> {
    pub fn new(symbols: impl IntoIterator<Item = S>) -> Self {
        Self(Vec::from_iter(symbols))
    }
    pub fn get(&self, pos: usize) -> Option<&S> {
        self.tape().get(pos)
    }
    pub fn insert(&mut self, pos: usize, elem: S) {
        self.0.insert(pos, elem);
    }
    pub fn is_empty(&self) -> bool {
        self.tape().is_empty()
    }
    pub fn len(&self) -> usize {
        self.tape().len()
    }
    pub fn push(&mut self, elem: S) {
        self.0.push(elem);
    }
    pub fn set(&mut self, index: usize, elem: S) {
        self.0[index] = elem;
    }
    pub fn tape(&self) -> &Vec<S> {
        &self.0
    }
}

impl<S: Symbolic> From<Vec<S>> for Tape<S> {
    fn from(d: Vec<S>) -> Tape<S> {
        Tape::new(d)
    }
}

impl<S: Symbolic> From<Tape<S>> for Vec<S> {
    fn from(d: Tape<S>) -> Vec<S> {
        d.tape().clone()
    }
}

#[cfg(test)]
mod tests {
    use super::*;

    #[test]
    fn test_tape() {
        let alpha = vec!["a", "b", "c"];

        let a = Tape::new(alpha);
        assert_eq!(a.len(), 3);
    }
}