Skip to content

Latest commit

 

History

History
16 lines (13 loc) · 617 Bytes

File metadata and controls

16 lines (13 loc) · 617 Bytes

Определите функцию, вычисляющую двойной факториал, то есть произведение натуральных чисел, не превосходящих заданного числа и имеющих ту же четность.

Например:

7!!=7⋅5⋅3⋅1,
8!!=8⋅6⋅4⋅2.

Предполагается, что аргумент функции может принимать только неотрицательные значения.

Answer:

doubleFact :: Integer -> Integer
doubleFact n = if n <= 1 then 1 else n * doubleFact(n-2)