RosettaCodeData/Task/Mutual-recursion/Pure/mutual-recursion-2.pure

5 lines
124 B
Plaintext

> let females = map F (0..10); females;
[1,1,2,2,3,3,4,5,5,6,6]
> let males = map M (0..10); males;
[0,0,1,2,2,3,4,4,5,6,6]