作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在学习 ada 并且我正在尝试为枚举实现附加重载。
基本上我希望能够向 Day 类型添加一个 Integer 并获得生成的 Day 值。所以星期一 + 2 => 星期三。
这是我的简化代码:
procedure overload is
type Day is (
Sunday,
Monday,
Tuesday,
Wednesday,
Thursday,
Friday,
Saturday
);
day1 : Day := Monday;
function "+" (left: Day; right: Integer) return Day is
-- how would I handle this here? I want to basically say
-- if Day + Integer > Saturday then
-- wraparound back to Sunday
return DayValue;
begin
for x in 0 .. 7 loop
Ada.text_io.put_line("Monday + " & Integer'Image(x) & " = " & Day'Image(day1 + x));
end loop;
end overload;
最佳答案
您可以使用 'Pos 和 'Val 属性来做到这一点。 'Pos 返回提供的日期相对于第一个选项(索引为 0)的位置,而 'Val 接受一个 Pos 值并返回日期类型值:
return Day'Val(Day'Pos(Left) + Right);
对于环绕检查 'Pos 星期六的值与 'Pos 值的左 + 右值,并使用 Day'Val(0) 为星期日
return Day'Val((Day'Pos(left) + Right) mod 7);
你甚至可以花哨并为 7 做一个常数:
Day_Mod : constant := Day'Pos(Day'Last) - Day'Pos(Day'First) + 1;
然后它变成
return Day'Val((Day'Pos(left) + Right) mod Day_Mod);
关于ada - 如何将枚举转换为整数以处理溢出/环绕?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/69248398/
我是一名优秀的程序员,十分优秀!