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

5 lines
124 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
> 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]