polytype 7.0.1

A Hindley-Milner polymorphic typing system.
Documentation 
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

#![feature(test)]

extern crate test;

use polytype::{ptp, tp, Context};
use test::Bencher;

#[bench]
fn instantiate_unify_apply(b: &mut Bencher) {
    b.iter(|| {
        let mut ctx = Context::default();
        let scheme = ptp!(0, 1; @arrow[
            tp!(@arrow[tp!(1), tp!(0), tp!(1)]),
            tp!(1),
            tp!(list(tp!(0))),
            tp!(1),
        ]);
        let t = scheme.instantiate(&mut ctx);
        let target = tp!(@arrow[
            tp!(@arrow[tp!(int), tp!(obj), tp!(int)]),
            ctx.new_variable(),
            ctx.new_variable(),
            ctx.new_variable(),
        ]);
        ctx.unify(&t, &target).unwrap();
        let _t = t.apply(&ctx);
    })
}

#[bench]
fn instantiate_unify_apply_fast(b: &mut Bencher) {
    b.iter(|| {
        let mut ctx = Context::default();
        let scheme = ptp!(0, 1; @arrow[
            tp!(@arrow[tp!(1), tp!(0), tp!(1)]),
            tp!(1),
            tp!(list(tp!(0))),
            tp!(1),
        ]);
        let mut t = scheme.instantiate_owned(&mut ctx);
        let target = tp!(@arrow[
            tp!(@arrow[tp!(int), tp!(obj), tp!(int)]),
            ctx.new_variable(),
            ctx.new_variable(),
            ctx.new_variable(),
        ]);
        ctx.unify_fast(t.clone(), target).unwrap();
        t.apply_mut(&ctx);
    })
}