compute­pay: Payroll ? Rat

compute­pay: Payroll ? Rat
compute­pay(emp) =
cases emp ? 2 of
isDay(wage) ? multrat(wage)(emp ? 3)
isNight(wage) ? multrat(1.5)
(multrat(wage)(emp ? 3))
end

Define move­to­night: Payroll ? Payroll.

Previous slide

Next slide

Back to first slide

View graphic version