Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
Acceleration acc1 = Value<Unit<1, 0, -2> >(2); // Ускорение = 2 м/с/с. Ошибки нет.
Speed sp =100m/20s;
Acceleration acc = Value<M>(100) / Value<S>(10) / Value<S>(1);
Acceleration acc1 = Value<Unit<1, 0, -2> >(2);
typedef Value<Unit<1, 0, -1> > Speed
[<Measure>] type m
[<Measure>] type s
> let accl = 10.0<m/s^2>;;
val accl : float<m/s ^ 2> = 10.0
> let sp = 100.0<m/s>;;
val sp : float<m/s> = 100.0
quantity<length> L = 2.0*meters; // quantity of length
quantity<energy> E = kilograms*pow<2>(L/seconds); // quantity of energy
Type-rich Programming