RosettaCodeData/Task/Catamorphism/Apple/catamorphism-2.apple
2025-08-11 18:05:26 -07:00

2 lines
68 B
Text

> :ty (/)
(a → a → a) → Arr (i + 1 `Cons` sh) a → Arr sh a