euph 0.1.1

A functional stack-based programming language
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

use std::iter;

use crate::{
    fns::EuDef,
    types::EuType,
};

pub const SEQ_N0: EuDef = |env| {
    env.push(EuType::seq((0..).map(EuType::ibig).map(Ok)));
    Ok(())
};

pub const TO_SEQ: EuDef = |env| {
    let a0 = env.pop()?.to_seq();
    env.push(EuType::Seq(a0));
    Ok(())
};

pub const WRAP_SEQ: EuDef = |env| {
    let a0 = env.pop()?;
    env.push(EuType::seq(iter::once(Ok(a0))));
    Ok(())
};

pub const UNFOLD: EuDef = |env| {
    env.check_nargs(2)?;
    let a1 = env.stack.pop().unwrap();
    let a0 = env.stack.pop().unwrap();
    env.push(a0.unfold_env(a1, env.scope.clone())?);
    Ok(())
};

pub const REPEAT: EuDef = |env| {
    let a0 = env.pop()?;
    env.push(EuType::seq(a0.repeat()));
    Ok(())
};

pub const REPEAT_N: EuDef = |env| {
    env.check_nargs(2)?;
    let a1 = env.stack.pop().unwrap();
    let a0 = env.stack.pop().unwrap();
    env.push(a1.vecz1(|n| a0.repeat_n(n.try_usize()?).map(EuType::Vec))?);
    Ok(())
};

pub const CYCLE: EuDef = |env| {
    let a0 = env.pop()?;
    env.push(EuType::seq(a0.cycle()));
    Ok(())
};