RosettaCodeData/Task/Mutual-recursion/Pure/mutual-recursion-2.pure
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
124 B
Text

> 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]